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aa dh gt ad a gt at gt a st 
a hs hd gad ad a dd ag ag a a 
a aah a ag ad ad gg ad tg a tt 
a a as gas a at a tt at tt st st st st st tt 
a a ah ag ag ag a a dg at tg st tt 
aa as sg a a a hd a tt at tt st 
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DDDDDDDDDDDD RRRRRRRRRRRR vVV VVV_ RRRRRRRRRRRR 
DDD DOD RRR RRR VVV VVV RRR R 
DDD DD RR RRR VVV VVV_ RRR RRR 
DD DOD RRR RRR VVV VVV RRR RRR 
DDD DOD RR RRR VVV VVV RRR RRR 
DOD DOD RRR RRR VVV VVV RRR RRR 
DDD DOD RRR RRR VVV VVV RRR 

DDD DOD RRRRRRRRRRRR VVV VVV_  RRRRRRRRRRRR 
DOD DDD RRRRRRRRRRRR VVV VVV_ RRRRRRRRRRRR 
DOD DDD RRRRRRRRRRRR VVV VVV RRRRRRRRRRRR 
DDD DDD RRR RRR vVVV VVV RRR RRR 

DDD DDD RRR RRR VVV VVV RRR RRR 

DDD DDD RRR RRR RRR = RRR 

DOD DDD RRR RRR VvV OV RRR RRR 
DDD DOD RRR RRR vvV VV RRR RRR 
DOD DDD RRR RRR vvV OV RRR RRR 
DDDDDDDDDDDD RRR RRR VVV RRR RRR 
DDDDDDDDDDDD RRR RRR vvV RRR RRR 
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**FILE**]D**TTYCHARO 
TTTTTTTTT? TITTTTTTTIT YY YY CCCCCCCC =CHH HH AAAAAA RRRRRRRR 000000 
TTTTTTTTTT TITTTTTTITT YY YY cccccccc HH HH AAAAAA RRRRRRRR 000000 
TT TT YY yy CC HH HH AA AA RR RR 00 00 
TT TT YY yy cc HH HH AA AA RR RR 00 00 
TT TT YY YY cc HH HH AA AA RR RR 00 00 
TT TT yy YY cc HH HH AA AA RR RR 00 00 
TT TT YY cc HHHHHHHHHH = AA AA RRRRRRRR 00 00 
TT TT YY CC HHHHHHHHHH AA AA RRRRRRRR 00 00 
TT TT YY cc HH HH AAAAAAAAAA RR RR 00 00 
TT TT YY cc HH HH AAAAAAAAAA RR RR 00 00 
TT TT YY cc HH HH AA AA RR RR 00 00 eeee 
TT TT YY cc HH HH AA RR RR 00 00 cose 
TT TT YY cccccccc HH HH AA AA RR RR 000000 eevee 
TT TT YY cccccccc HH HH AA AA RR RR 000000 eoee 
LL III] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL HII! SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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our PUT FOR BURST MODE 


TN 
e 
p 
- OR 
U orgy hey “we ytadt FOR INTERRUPT 
CHARACTER FOR 
ement cy ure or dg May wrap if needed 
CHARACTER FOR OUTPUT 
OUTPUT FORMAT othe ROUTINES 
KSPACE = output a backspa 
CARRIAGE = format a carriage return 
CTRLZ = output contro 
SCAPE = format an escape character 
LINEF FEED - soraet 8 Line feed 
- ut s- Sn 


a 
~~ 
o~-D 
4; 
o 
= 


ARACT 


RVItE RO a vertical tab, or form feed 
ISPATCHER SERVICE ROUTINES 

KSPACING = OUTPUT N BACKSPACES 

re FLOW = ovinsert newline to Renate end of Line 
L 

T 


PSAa 


EEN = handle end of Line condit 
ING = continue outputting fill characters 
IEC ED 


_ 
- 


Cont ~ pytpurting multiecho sequence 


LINEF ~ ousput a line fee 
SEQUE SING SER vices’ 
SYNTAX == “ChE ESCAPE SEQUENCE 
EREADATA = MOVE CHARACTER FROM TRPEANEAD TO READ BUFFER 

MOVER qoeta SERVICE ROUTI NES 


goecest eahead character dispatcher 


quay 
aa 


Post : d character ect ron routines 
EDITRE READ EDITING STATE 

Read service routines 

Read 


sall 
READ ith VERIFICATION 
READ VERIFY ESCAPE TERMINATOR ROUTINE 
End of module 
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1 
(1) 


TT 


-TITLE TTYCHARO = Terminal driver character output routine 
“IDENT 'V04-000" ato 


MARAARARAAAAAALALALAL ELE AAA SEES S RARE SEER ESS RARER EERE RRR R REE EERE ERE EES SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 

® 

= 

® 

® 
HED UNDER A LICENSE AND MAY BE USED AND COPIED 
H SUCH LICENSE AND WITH THE 
COPYRIGHT NOTICE, THIS SOFTWARE OR ANY. OTHER 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
E TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. * 
® 

® 

o 

od 

* 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR een OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


PARR RRRARA RASA ALALA RADA LALALALALARSAASLELAS ARR RRR A RRR A RRR SRR ARRAS AAA RADA SS SO 


"Fosthien 
VAX/VMS TERMINAL DRIVER 
ABSTRACT: 
THIS MODULE CONTAINS ROUTINES USED FOR THE OUTPUT OF CHARACTERS. 
eeeee This module never destroys the contents of RO **** 
AUTHOR: 
R.HEINEN 11-AUG-1976 
Revision history: 
V03-046 M RONKes Michael I. Rosenblum 16-Jun-1984 
Fix bug with read with 0 timeout that creates the ccaneinad 
buffers reported in qar 1424. 
VO3-045 MI1RO450 Michael I, Rosenblum 27-JUN-1984 
Make the port bit pc nocrif set the state skiplf 


Fix bug ine cape n€roducer code that caused it not to 
recognize cs 
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0 
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0 
0 
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; 
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0 
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0 
" 
0 
0 
0 
0 
0 
0 
0 
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V03-044 4 R0400 Michael I. Rosenblum 10-Apr-1984 
Lter null characters from escape sequences. 
v03-043 M1R0390 Michael I. Rosenblum 04-Apr-1984 


PAA BB BPE EEE EWI III inononononononononong 2 2 


NO AE WIR 0 OD NONE WIN 0 OD NAN EWN 9 OD NAN EIN @ O OD NOAU EU SP OOONOU Ewin 


Make the exit string echo thru the tables vector. 
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V03-042 m1R0370 Michael I. Rosenblum angen 1906 
Fix problems with tabs to the left of the curent. oa tion, 
Lines that wrap in either she prompt or initial string. 
Add port control ‘word modifier to stop free Linefeeds 
After typed <CR> 


v03-042 pjnete Michael I. Rosenblum 07-F eb-1984 
Noformst: reads shouldn't 

Ignore SKIPCRLF and EDITREAD Pit Ay are urapp ing. 

Don't yn be ¢ to f EDITR 


Wro—OoOo° 


NNN NNO POP OOAAOOOUM 


MEUM $9 ODNA UE WIN O OD NAVE WIN OOONAUNE 


A Te field in read veri 


v03-038 mjnopee Michael I. Rosenblum 02-Aug-1983 
bug in recall logic that did not force a return tStere 
he recall was done. Fix bug in delete after wrap logic. 


v03-037 RiROOST Michael I. Rosenblum 01-Aug-1983 
Remove Sbrddef atl (obsoleted). 


V03-036 MIRO080 Michael I. Rosenblum 28-Jul-1983 
Reposition code in the module. 


v03-035 4 ty th Michael I. Rosenblum 13-Jul-1983 
x bug thet would cause an 19°gere sequence 8 at the beginning 
f the Line to corre sexes d data if de 
Rake check ip MOVEREAD ig. buffer full aerhieten at 
the top of the $90 P to yo sure that the users buffer 
can not be overfilled if the initial string fills the 
data buffer. 


v03-034 mjR00 Michael I. Rosenblum 27-Jun-1983 
x bug in ESCAPE “TAB where it would pass the address 
into the ESCINIT foutine rather than the character 


v03-033 4 RO0O5S1 Michael I. Rosenblum 23-Jun-1983 
x bug caused when escape sequences are UNUSED. 
it. Slageos to exit to movecursor on hard-copy terminals. 
oe e routines that checked CSI and ESC call a common rout ne. 
x bug that would cause writes on non-herdcopy terminals 


09 Move to be ng of Line sho "4 7 ecurtae’ the whole Line 

0 if the or rerenet cyreer posit on was non-zero. 

8p Read norte should qe 7 wpoercese. whet. 

0 Passall should not impt y ae 

4 Fix delete in left justified reed rae tte noecho fields 

36 to not echo. 

00 v03-041 M1RO300 Michael I. Rosenblum 30-Jan-1984 
38 Make the uparrow key be command recall. 

00 v03-040 M1RO100 Michael I. Rosenblum 24-0c t-1983 
00 Fix bug that would cause characters to be echoed in no-echo 
4 mode. 

09 v03-039 pincess Michael I. Rosenb 25-Aug-1983 
00 

00 


ix problem with terminating a tee justified numeric 
y- 


wooovono 


Le 


oO 
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a a at et st a ts as 
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To use the single character code path following the wrap point. 


v03-032 be Michael I. Rosenblum 10-May-1983 
on in clear to end of Line emulation. 

V03-031 MIRO O5f Michael I. Rosen ive 27-May-1983 

Add de ere character to read ver fy. make read verify 

accept f characters in the initial string and as 

data ane display the clear character. 

Add software emulation of clear to end of Line for non- 

ansi terminals. 


1 3 
Wf : 
113 : 
9 ; 
1 : ; 
158 
126 : 

1 5 3 VO3-030 M1ROOSO Michael I. Rosenbdium 11-May-1983 

° ! 8 : Remove code that specail cased broadcasts. 

130 ; V03-029 MIRO049 Michael 1. Rosenblum 06-May-1983 
Bo ! 1 : Add code to handle wrapping correctly. 
00 1 5 ; v03-028 4 R0041 Michael I. Rosenblum 29-Apr-1983 
4 ! : ; x bug in the new passall code path 
0900 1 § : v03-027 MIRO030 Michael I. Rosenblum 30-Mar-1983 
000 1 : ntegrate ews with the terminal driver, code included 
4 : 3 ; n this module 
0000 140 : v03-026 MIROO29 Michael I. Rosenblum 22-Mar-1983 
B60 123 ; Add code for insert/overstrike mode. 
0000 128 : v03-025 RKs0025 RICK SPITZ 19-MAR-1983 
44 133 : Change references of UCBSL_TT_DEVDP1 TO UCBSL_DEVDEPND2 
0000 146 : V03-024 MIR6026 Michael I. Rosenblum 11-Mar-1983 
0000 147 ; Change recall to not terminate a small read when a recall 
0900 108 ; s done from a long recall buffer. 
$60 150; V03-023 MIR2026 Michael I. Rosenblum 07-Mar-1983 
4 133 3 oe bug in EDITREAD prompt echoing when there is no prompt 

; © echo. 

00 153 ; 
$00 154 ; V03-022 MIR1026 Michael I. Rosenblum 11-Mar-1983 
000 133 3 Add STRMDEF to the list of required symbol gubdiatetons 
00 133 ; V03-021 MIRO026 Michael I. Rosenblum 10-Feb-1983 
200 138 : Add code to a input Line editing. 

5 160 ; v03-020 " Ro025 Michael I. Rosenblum 18-Feb-1983 
BS 161 ; x bug in carriage control Logic that caused a carriage return 
3 19¢ : A. a prompted read to get a free Linefeed. 

164 ; VO3-019 MIRO024 Michael I. Rosenblum 28-Jan-1983 
19? 3 Change code to reflect redefinition of the read packet. 

189 : v03-018 M1R0017 chael I. Rosenblum 05-Jan-1983 
1 8 3 Add power fait bit to the unit state vector table to remove 
1 : power rs aie or each cherecter. Restructure puer tert 
109 3 code to nt path in TTYSUB 


ode e 
return status of OF TYSGE TNEXTCHAR to include a byte 3 
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in the UCB, this will move the information from the condition 
code bits. 
v03-017 BIROOTS Micha Rosenblum 29-Dec-1982 


eplace time “atteutation code with TIMSET macro call 
rf s change allow us to change th fier calculation 
ol gortytse globaty f peg om Ll also allow 
us to globaly turn on and off the time + Hane 9M ons. 


V03-016 MIROO15 Michael I. Rosenblum 22-Dec-1982 
Change ell calls to the terminal port drivers to refer 
to the class jacket routines. Remove DMA code from the 
class driver. 


v¥93-015 MIROO13 Michael I. Rosenblum 16-Dec-1982 
Fix up refferences to new ucb structure 
v03-014 MIROO11 Michael I. Rosenblum 18-Nov-1982 


Change MULTIECHO™ to take a count oy UCBSW_TT_MULTILEN and 

ana gress in UCBSL_TT_MULTI, illiminate the code for 

zero terminated multiecho strings. 

change STRTMULTI to take a counted string and convert 

into a length and address 

hdd STRTMULTI_1 to take the. place of STRTMULTI. 

Add code to make Control-R and Control-U look prety on 

ANSI crt terminals. 

Fhange CONTROLR to “EDITREAD also change the internals of 
TROLR to use MULTIECH 

Change the date st ef the CTRLR bit to indicate that the 

proes t and data string from a read buffer ore being clocked 

out oy By multi ee this is the only use for CTRL 

Add SKIPCRLF to indicate that a Linefeed followin a <CR> 

in the pea nning of the prompt string is to be skiped. 

Remove HOLDSCREEN code. 


v03-013 MIROO12 Michael I. Rosenblum 19-Nov-1982 
Fix bug that caused exception when a read was posted 
that caused a create of the typeahead buffer. 


V03-012 MI1ROO10 Mi choot I. Rosenblum 09-Nov-1982 
Move the address 9 the terminator mask, and the length 
of the prompt str ng re the IRP into the terminal read 
acket. Also move the count of the characters in the 
uffer from the UCB into the terminal typpaheed buffer packet. 
Make backspace look Like delete (without beeing delete) 
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v03-011 RKSO0011 RICK SPITZ 19-OCT-1982 
INSURE THAT RS IS PRESERVED WHEN DMA FORK TAKEN 
v03-009 RKS0010 RICK SPITZ 23-SEP-1982 


SoOoooooo 


OOoOOCoooo 


CHANGE LOGIC IN FORMAT TO INSURE THAT HARDCOPY TERMINALS 
SET TO NO WRAP DO NOT OUTPUT DATA BEYOND LINE WIDTH 


CORRECT PROBLEM WITH XON LOGIC TO INSURE THAT OVERFLOW 
ERRORS ARE ALWAYS REPORTED 
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v03-008 p RO0003 
foul not work. 


v03-007 KDM0002 
Added $SSDEF. 
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x bug where mult 
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ze .SBTTL TTYSGETNEXTCHAR = GET NEXT CHARACTER(S) 

; TTYSGETNEXTCHAR = GET NEXT CHARACTER(S) 

; FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE RETURNS WITH THE NEXT CHARACTER(S) TO BE OUTPUT ON THE UNIT. 
> INPUTS: 
RS 
; OUTPUTS: 
; RO 


=<— 
“ 
@ 
oo 
an 
mas 
=m 
zo 
ma 


UCB ADDRESS 


ALWAYS PRESERVED!! 


ZERO = NO CHARACTER TO OUTPUT 
PLUS = SINGLE CHARACTER TO OUTPUT 
NEG = BURST (R2 = LENGTH) 
(ADDRESS AND LENGTH ALSO IN UCB) 


CHAR AND CC 
ADDRESS AND CC 


IRST 
ADDRESS IN R3 AND UCBSL_TT_OUTADR 
LENGTH IN R2 AND UCB$W-TT~OUTLEN 
0 NO CHARACTER TO OUTPUT 
1 SINGLE CHARACTER TO OUTPUT IN R3 


TTYSGETNEXTCHAR:: 
MOVAB UCBSQ_TT_STATE(R5),R2 ; ADDRESS STATE OF UNIT 


: GET CURRENT STATE OF THE OUTPUT 


52 00B8 C5) 9E 


PS NVMTFOMNVINVINO OOOO OCOOCCCOCCOCCOOOCOCOCOOCOCOOOCOCOCOCOoO Mea 
NOUS WN 0 OD NOU EWN OOONOUES WN -O0OOnNOuUsS We 


NR MODOC DOOOO0OO OOOO OOOO O00 0009 0909 09 09 09 09 098 SININS SIN NINN NOOOOOSD 


DANIAN AINA AAAI AAAI AIRS PDIPIPIPPIPOPONIPINPINPINIPONINNIPONIPPONNoPoNononoponspnonrnrnnn © 


8 GETNEXTCHAR: : INTERNAL ENTRY 
62 00000080 8F 1 9 CMPL  #TTYSM_ST_WRITE, (R2) + TRY WRITING GENERAL CASE FIRST 
F (13 0 BEQL wWRITI : IF EQL THEN 
62 00001000 BF 01 1 CMPL = #TTYSM_ST_READ, (R2) : TRY READING GENERAL CASE NEXT 
03 12 ; BNEG : NO, GO TO 10$ 
050¢ «(31 7 ae BRW MOVEREADATA : IF EQL THEN GO 
54 62 OD OO EA 5 FS #0, #TTYSV_ST_READ+1,(R2).R4; GET THE NEXT MOST IMPORTANT OUTPUT STAT 
F 6 CASE R4,TYPE=B7<- : ENTER THAT STATE'S ROUTINE 
F POWERREST,=- : 90 to the power fail code 
F B INTEXIT,= : CONTROL $ 
F 9 FILLING.- : FILL IN PROGESS 
F 0 CURSOROVRF LOW, - : CURSOR OVERFLOW 
F 1 SENDLINEFEED,- : LINE FEED TO BE INSERTED 
F ; BACKSPACING,- : BACKING UP IN PROG 
F MULTIECHOING,- : MULTI ECHO IS PROGRESS 
F 4 WRITING,=- : WRITE IN PROGRESS 
F 5 EOLSEEN,- : EOL SEEN 
F : EDITREAD,- > READ EDITING OUTPUT STATE 
F RDVERIFY.= : GO TO READ VERIFICATION 
F : RECALLING, - : RECALLING THE LAST COMMAND 
OF ; MOVEREADATA> + READ IN PROGRESS 
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04-000 TTYSGETNEXTCHAR © GET NERT COARACTER CES SagePo1o8G Be ssorty LARAMMS acto VON TOO war: P29 (8, 
30 1; EXIT INTERRUPT 
30 4 INTEXIT: : EXIT INTERRUPT 
0108 (5 (94 D 4 CLRB - UCBSB_TT_OUTYPE(RS) + SET NO RETURN CHARACTER 
05 4 5 RSB + RETURN 
4 $ : POWERFAIL DETECTED 
04 § POWERREST: 
FFBB' 30 004 0 BSBW  —sRESTART ; CALL THE POWERFAIL RESTART CODE THEN 
FFBD 31 tp BRW GETNEXTCHAR + CONTINUE AGAIN 
4 
apes 4 INTEXIT1: : EXIT AND RESTORE UCB ADDRESS 
55 BEDO 0048 335 POPL RS 
FO 311 «(0048 «S336 BRB INTEXIT 


5 


: CONTROL 0 TYPED OR CONTROL Y OR C 
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v04-000 WRITING - WRITE state action utput mie} peek tt TTDRVR.S RENT TVENARD. MARS 1 — (2) 
4D ; -SBTTL WRITING = WRITE state action routine 
ae 
4p 4 ¢ WRITING = CONTINUE WRITE I/0 OUTPUT 
4D ‘8 t FUNCTIONAL DESCRIPTION: 
4D 345 ; THIS ROUTINE IS ENTERED WHEN ALL EXTRA OUTPUT IS COMPLETE 
4D 46 ; AND A WRITE OPERATION IS IN PROGRESS. 
4D 48 ; THE NEXT AVAILABLE CHARACTER IS EXTRACTED FROM THE USER BUFFER 
4p 43 ; AND GIVEN TO THE ECHO FORMAT ROUTINES TO OUTPUT CORRECTLY. 
0040 1 ; IF CONTROL O HAS STOPPED THE OUTPUT THE OPERATION IS COMPLETED. 
sb 38 > INPUTS: 
4p 55: Re = = ADDRESS OF THE UNIT STATE VECTOR 
9060 36 ; UCB ADDRESS 
9040 38 + Implicit inputs: 
9040 60 3 UCBSL_TT_WRTBUF - address of write buffer 
0040 6¢ : OUTPUTS: 
0040 364: Re = ADDRESS OF THE TERMINAL STATE VECTOR 
0040 365: R3 = CHARACTER TO OUTPUT IF ANY 
04D 66 ; R5 = UCB ADDRESS 
04D $3 -ENABLE LSB 
04D 0 WRITING: 
54 0004 ¢5 DO 004D 71 MOVL UCBSL_TT_WRIBUF(RS).R4 ; Get address of buffer block. 
0052 ze IF STATE CTRLO,6 : COMPLETE 1/0 OF CONTROL O 
53 1C AG DO 0056 37 mov TTYSt WB_NEXT(R4) ,R3 + GET ADDRESS OF NEXT CHARACTER 
20 a6 «553)——COsC«0SA 3:7 CMPL = R3, TTYSL~WB_END(R4) + DONE? 
09 «OE 005E 75 BGEQU : IF GEQU THEN YES 
06 16 IF STATE <PASALL, WRTALL>, BURST 
006D =s31 66 «37 BRO FORM : FORMAT FOR OUTPUT 
$69 399 
069 0 : WRITE 1/0 DONE 
ae 
69 § 50$: : Normal return. 
069 4 IF_NOT_STATE __<PASALL,WRTALL>, 
OOFC CS) = B4 ¢f 5 CLR UCB$W_TT_CURSOR(RS) > AT CONCLUSION OF PASSALL/WRITALL 
OOFF C5 94 a3 6 a etR UCB$B-TT“LASTC(RS) ; STATE IS UNKNOWN 
01 80 77 3 ‘ MOV #SS$_NO ; Load success status code into 
28 AG 79 rtys0"G ‘UB. mee ATUS (RA) : buffer header. 
06 11 7B 30 BRB 108 : CONTINUE 
9 
38 
94 
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0609 8F 

28 AG 

if Al 

3k na” 83 

FRO" 

FF6D 
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11 


5 
driver character output routi 16-$ po 4 AX/VMS v04-00 P 1 TY 
RITE state action utput §-§ 1382 Re: 4; 3 YTtORVR.€ R.S fry YCHARO.MAR; 1 — 12) vO 
5 
36 OOS: Wy (SSS. CONTROLO Ekcet seciteled wtoien aed 
22 : Load control-0 status 

38 TTY$Q_WB_STATUS(R4) ; into buffer header. as 

400 70$: ; Complete transfer. 

¢ 1 SUBL3 BA se the i : soeaece Meee of cherectors 

a 3 not output to terminal. 
ey eliegentn | Hels Crnelr tome 
y : Do one. 

? é BRwW TTYSGE TNEXTCHAR 3; Get the next character. 

4 

408 WRITE_END: 

409 IF ” ness 7hgrto. ,60$ ; CONTROL O 

rt BKB ; COMPLETE WITH CURRENT STATUS 

tig -DISABLE LSB 

41 
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= Terminal driver charac 
BURST/STRING = SET UP OUTPUT FO -SEP- TTDRVR.SRCITTYCHARO.MAR; 1 v0: 
99 415 = .SBTTL BURST/STRING = SET UP OUTPUT FOR BURST MODE 
$3 ‘tf : BURST/STRING == SET UP OUTPUT FOR BURST MODE 
99 4] + FUNCTIONAL DESCRIPTION: 
99 4 ; THIS ROUTINE RETURNS THE ADDRESS AND LENGTH OF THE CURRENT 
99 402 : OUTPUT TO THE CALLER. anyETIM 1S COMPUTED BASED ON THE LENGTH OF THE 
99 423 ; OUTPUT. THE CURRENT WRITE POINTERS ARE UPDATED TO REFLECT THE 
99 4 4 ; NUMBER OF CHARACTERS INCLUDED IN THE BURST. 
99 4 6 : INPUTS: 
99 407: R3 = ADDRESS OF NEXT CHARACTER 
99 4 : : R&4 = TWP ADDRESS 
099 4 a R5 = UCB ADDRESS 
099 4 1 : OUTPUTS: 
99 4 5 : R3 = ADDRESS OF NEXT CHARACTER 
0099 434: R5 = UCB ADDRESS 
0099 435: UCBSL_TT_OUTADR = ADDRESS OF START OF BURST 
0099 is ; UCBSL-TT-OUTLEN = LENGHT OF BURST 
$099 438 BURST: 
52 20a6 53 C3 0099 439 SUBL3 R3, TTYSL_WB_END(R4) ,R2 ; COMPUTE LENGTH OF RECORD 
OO9E 441 STR_EXIT: 
52 52 3¢ 009E 44g MOVZWL R2,R2 : CONVERT TO WORD VALUE 
10 a4 «6520 «CO «(OAT 4K ADDL  R2.TTY$L_WB_NEXT(R4) : UPDATE NEXT ORARACTER ADDRESS 
0120 cS 3452 BO OOAS 444 MOVW  R2.UCBSW"TT~OUTLEN(RS) : SET OUTPUT S$ 
o11c ¢5) 53—sé AA 44s MOVL R3,.UCBSL“TT~OUTADR(RS) : SET OUTPUT ADDRESS 
DOA 409 STR_TIMESET: 
OAF 448 TIMSET R2,R1,LOCKOUTPUT : COMPUTE THE TIME Per CHARACTER 
0p 449 : AND SETUP INTERUP 
0108 cS) «(01s BE.«00D0 Ss 450 MNEGB #1,UCB$B_TT_OUTYPE(RS) : SET NEGATIVE CC 10 SIGNAL 
0005 9451 : STRING OUTPUT 
05 0005 43¢ RSB 
0006 «45 
0006 «454 


> 


= 


4-4-4 -4-4-4- 4-44 SS SSS 


PERE LL PLL LEP R PELL PRP PPP PPP PPP PPP PETE 
5O SO O'0.09 09 09 0900 09 0909 0909 SININISISI NNO OAAAAAAAAOUIMNUIN 


> 
oO 
MEW —OODNAUSWN $$ OOONOUES WN OC DDNOUE WO OONO 


OOOooocoe 


= =DOCCCO0O 7 FH HMMM Mm 


POM MA MPMI FS BD NINN FD PSD AA AAAA AA AAPA AAA AAAA AAA AAAO AAA AAAS 
_- Ww 


MO OCONOUES WOO 
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~SBTTL FORMAT = FORMAT STRING FOR OUTPUT 


s 
; FORMAT == FORMAT STRING FOR OUTPUT 
‘ FUNCTIONAL DESCRIPTION: 


THIS ROUTINE RETURNS THE ADDRESS AN D LENGTH 0 OF A PORTION OF THE 
CURRENT FORMATTED OUTPUT STRING TO T 
IF NO SIGNIFICANT PORTION OF THE STRING CAN BE FOUND, IT 
DEFAULTS TO SINGLE CHARACTER FORMAT MODE. 
DUETIM IS COMPUTED BASED ON THE LENGTH OF THE 
OUTPUT. THE CURRENT WRITE POINTERS ARE UPDATED TO REFLECT THE 
NUMBER OF CHARACTERS INCLUDED IN THE BURST. 
INPUTS 
Re = ADDRESS OF UNIT STATE VECTOR 
R3 = ADDRESS OF NEXT CHARACTER 
R4 = TWP ADDRESS 
R5 = UCB ADDRESS 
: OUTPUTS: 
Re = ADDRESS OF UNIT STATE VECTOR 
= ADDRESS OF NEXT CHARACTER 
R5 = UCB ADDRESS 
UCBSL_TT_OUTADR = ADDRESS OF START OF BURST 
UCBSL-TT“OUTLEN = LENGHT OF BURST 
OR 
R3 = NEXT CHARACTER TO OUTPUT 
ORMAT: 
PUSHL RO ; CSR_MUST ALWAYS BE PRESERVED 
IF STATE <ESC_0>, FORMA ; IF ESCAPE IN PROGRESS, SPECIAL 
SUBL3 TTYSL WBE RO CALCULATE LENGTH OF STRING 
BBS #TTSV_WRAP ee DEVDEPEND(RS) 3. € ARE A NO-WRAP 
BBS #TTSV~SCOPE ,UCBSC_DEVDEPEND (R55 73a; Sc scOPE E THEN OUTPUT THE MAXIMUM 
SUBW3 #1 ,UCBSW_DEVBUFS1Z(R5) ,~ : COMPUTE EOL-1 
SUBW2 UCBS$W_TT_CURSOR(RS) ,R1 COMPUTE ROOM TILL EOL-1 
BLEQU FORMAT_X : EOL REACHED 
CVTWL sORT,R1 ; 
CMPL R1.RO : OUTPUT SIZE IS LESS OF TWO 
BLE log 
$: MOVL _RO,R1 : ACTUAL IS LESS 
0$: 
MOVZBL (R3),RO ; TEST FIRST CHARACTER 
BITB = #<TTYSM_CH CTRL :TTYSH_ CH_SPEC! TTYSM_CH_CTRL2!TTYSM_CH_CTRL3>,- 
“TTYSA-TYPECROJ 
BNEQ FORMATE 
PUSHR gamer 2 ,R3> : SAVE LENGTH, ADDRESS 
SCANC RSS TTYSA SKIP ALL NON SPECIALS 
#<TTYSM_CH. CTRL! TTYSM_ tr. TSPECTTTYSM. cHCERL2! TTY _CH_CTRL3> 


TTYCHARO - Terminal driver character out : . a 16-SEP=1 AX/VMS Macro V04-00 Page 13 TT 
04-000 FORMAT © FORMAT STRING FOR OUTPUT oe ets a Sa OO ae Sh e's vO 
Hf 13 ~ ; TO ALLOW SINGLE BURST OUTPUT 
Of BA O11 15 POPR  #*M<R1,R2,R3> ; RESTORE LENGTH 4 ADDRESS 
51 ( 11A 1 SUBL ; COMPUT — NUMBER CHARS FOUND 
1p 11D 05 BEQL FORMAT_X ; 
oorc cS 51 AD ONE 918 ADDW RT, UCBSW_TT_CURSOR(RS) : UPDATE FINAL CURSOR 
124 : THIS ASSUMES ALL CHARS 
154 0 : < SPACE ARE SPECIALS 
154 1 CLR STATE, <NL ,SKIPLF,WRAP> ; 
52. 51 vO 0139 g MOVE. —-RI,R i LENGTH OF STRING TO OUTPUT 
0 BEDD 019¢ POPL : RESTORE 
51 52 01 1 i SUBL3 #1482] : CALC N-1 
OOFF CS) 6341 1 5 MOVE © (R$)CR1),UCBSB_TT_LASTC(RS) + TASC IS FINAL CHARACTER OUTPUT 
Fr62 310139 $ BRW STR_EXIT : TAKE COMMON STRING EXI 
13¢ g FORMAT x 
50 EDO 013¢ oPL RO ; RESTORE 
3 136 0 MOVZBL (R3),R3 : GET CHARACTER 
IE AG BG 0142 1 INCL TTY$C_WB_NEXT(R4) : BUMP NEXT POINTER 
003F 14 2 BRW FORMAT CRAR ; HANDLE AS SINGLE 
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OOFF C5 


0108 C5 


53 


01 


>. 
$2 


hd 
PEA DQREM. SEE EEE EE PPP PPP PPP PPP PPLE EEE 


VOANNNOS SO 0090000090000 09 09 00 00 00 00 C0 0D CD CO CD CD CD CD CD CD CD CD OD 


buat 


PUP PUPVIVUDVLVIVLIVSULDUSIVSIVSIVSVSIVSIVSI VSS VSS VOSS OIF TOS IOSIOSIOSIOSIOS — 


DPDRDEDPEDRDPD Pars & Be BB BE PAI 


drive 


AMINE =O OOND NEW  O OD NOU EW OOONOUE 


haract 


I 
s ouTPUT cH ARACT TER” ‘gout! 
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Rae «SBTTL OUTPUTANDWAIT = OUTPUT CHARACTER AND WAIT FOR INTERRUPT 
; OUTPUTANDWAIT = OUTPUT A CHARACTER AND WAIT INTERRUPT 


; FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE IS USED BY THE OUTPUT INTERRUPT ROUTINES TO RETURN 
: TO THE DEVICE DEPENDENT CODE TO OUTPUT A CHARACTER. THEIR RETURN 
: CAUSES THE UNIT TO ENTER A WAIT FOR INTERRUPT STATE. 

: INPUTS: 

; R2 = ADDRESS OF THE UNIT STATE VECTOR 

: R3 = CHARACTER TO OUTPUT 

; R5 = UCB ADDRESS 

: OUTPUTS: 

: THE UNIT IS PLACED IN A WAIT FOR INTERRUPT STATE 

: AND THE CONDITION CODES ARE SET TO PLUS INDICATING 

: SINGLE CHARACTER IN R3. 


RS = UCB ADDRESS 


SUTPUTANDWAIT: F 
R3,UCBSB_TT_LASTC(RS) 

OUTPUTANDWAIT1: 
TIMSET 1,,LOCKOUTPUT 


#1, UCB$B_TT_OUTYPE(R5) 


MOVB 
RSB 


; OUTPUT CHARACTER AND WAIT ENTRY 


SAVE LAST CHARACTER OUTPUT 


ENABLE THE TIMER WITH A MINIMUM 
OF 1 rie oe INTERLOCK THE 


OF OUTPUT 
AND RETURN WITH CHARACTER 


o- 


J 5 
rf output routi 1 P-1 


-S 4 02:21: AX/VMS Macro V04-00 
CTER FOR OUTPU misty eer ET TORVR. SREITTYCHARO.MAR: 1 
-SBTTL FORMAT_CHAR = FORMAT CHARACTER FOR OUTPUT 
pa -ENABL LSB 
FORMAT_CHAR = FIND PROPER OUTPUT FOR SPECIFIED CHARACTER 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE TRANSLATES THE SPECIFIED CHARACTER FOR OUTPUT 
ON THE TARGET T. THE OUTPUT OF THE SEQUENCE IS EITHER 
0 NA T TARTUP OF THE PROPER MULTIECHO 
STRING. CURSOR ADJUSTMENT IS ALSO DONE HERE FOR PRINTING 
CHARACTERS AND FORM CHARACTERS. IT IS POSSIBLE FOR THE RESULT TO BE NO OUTPUT. 


SEE EACH SPECIAL CHARACTER ROUTINE FOR MORE DETAILS ON ECHOING. 


Q 
| ie) 
ate 
=_—s 
on 


os 
ze 
>— 
@D 
oe 
z7 
Sa 
xzoe 
>o 
m@mee 
re 


AJP o Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Fe Ge Se Se Se Ge Se Se Se Se Se Se 


NOMM SOL COT VTVTCTVTVCTVVCTVCTVVCVCVCCVCVTVCVCVCCVC"CCc0C0C0"0" 


m Vv 
T_ F 
1 
1 
1 
1 7 
1 7 
1 7 
1 74 
1 75 
1 d 
16 7 
16 28 
16 7 
1 0 
16 1 
fae 
16 4 INPUTS: 
16 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
16 R3 = CHARACTER TO TRANSLATE 
16 : R5 = UCB ADDRESS 
16 30 OUTPUTS: 
16 3 R2 = ADDRESS OF THE UNIT STATE VECTOR 
16 9 R3 = CHARACTER TO OUTPUT NEXT IF ANY 
16 34 R5 = UCB ADDRESS 
16 3 $: IF _NOT_STATE <ESC_O>,OUTPUTANDWAIT: BR IF NOT OUTPUT ESC 
O34F 30 01 9 BSBw ~ ESCSYNTAX~O ; CHECK CHAR AGAINST ESC SYNTAX 
d2. 14 «017 98 BGTR OUTPUTANDGAIT : SYNTAX OK, OUTPUT CHARACTER 
17 99 IF NOT_STATE <MULTI>,8$ : IF MULTIECHOING AND EDITI 
17 é 0 IF“STATE <EDITING>, 10$ : DON'T ZERO CURSOR 
ogFC cS B4 (OOI7 1 8$: CLRW UCB$W_TT CURSOR(RS) : ZERO CURSOR (COLUMN) POSITI 
04 A OE E4 01 6 : 10$:  BBSC #TTY$0_ST_ESC_0,4(R2).- : SEQUENCE ENDED CORRECTLY 
A 1 6 GOOUT + CLEAR STATE AND BRANCH ALWAYS 
1 604 FORMAT_CHAR: 
187 605 IF STATE <PASALL,ESC_O,WRTALL>,5$ : BR IF FORMAT NOT NEEDED 
18F 606 CASE wW*TTYSA_fYPETRS) .LIMIT=#laTTYS$V_CH_SPEC, TYPE=B,<- 
is 60 eal 
18F $08 LINEFEED,- 
ea 1 
18F ele CARRIAGE,- 
ante on 
Al AF OF O1A4 615 PUSHAB OUTPUTANDWAIT ; SET RETURN PC FOR ADJUST_CURSOR 
Ar 16 3 AND FLOW INTO ADJUST_CURSOR 
1A7 618 .DSABL LSB 
1A7_—s 61 


$e. 
TTYCHARO = Terminal driver character output routi 1 “$ P-1984 AX/VMS Macro V04-00 Page 1 
v04-000 ADJUST_CURSOR = Increment cursor and set SEP=1984 t 88: 16: ty ETT ORVR. SRCITTYCHARO.MAR; 1 . (9) 
14 1 «-SBTTL ADJUST_CURSOR = Increment cursor and set wrap if needed 
Ar ° ADJUST_CURSOR: 3 ADJUST CURSOR 
FO BF «693 «(O1A7) 625 #<TTYSM_CH_CTRL!TTYSM_CH_SPEC!TTYSM_CH_CTRL2! TTYSM_CH_CTRL3>,- 
0000'CF4 1AA 6 § W*TTYSA_TYPECR3] ; TEST FOR SPECIAL 
2 12 105 6 E 0$ 3; NON SPACING CHARACTER 
OOF C C B6 018 6 8 INCW Ucesu TT T_CURSOR (RS) : ADJUST CUR OR 
42 AS OFC C B1 0184 6 CMPW ye BSwW_TT =CURSOR(RS) .UCBSW_DEVBUFSIZ(R ) ; OVERRUN? 
06 ='€E 13h ? , BGEQU $ 3; YES 
18C ? § 25$: CLR_STATE - ; Set not at newline 
1BC <NL, SKIPLF ,WRAP> : clear SKIPLF and WRAP. 
0S 0O1C1 634 26$: RSB 
15 os 
0C 44 a5 09 Fo 1C 6 5 BBS #TTSV_WRAP,UCBSL_ DEVDEPEND (RS) 08: BR IF WRAP ENABLED 
F 10? 6 8 BEQL 258 ; If EQL THEN AT END OF LINE AND OK 
FEE 44 a5 OC €0 0109 6 BBS #TTSV_ ; IF SCREEN TERMINAL, CONTINUE 
1CE 640 UCBSL ~DEVDEBEND(RS), 258 ; 
BE bs 1C 641 TSTL (SP)+ ; DO NOT RETURN TO BSB TO DROP 
00C6 1 01D 663 BRW DROP ; IF HARDCOPY,DROP CHARACTER 
1D3 643 108 SET_STATE CURSOR + SET CURSOR OVERFLOWED 
e411 1p o¢8 BRB 5$ 
00000000'EF43 04 91 O1D 646 308: CMPB #TTYSK_ET_ESCAPE,TTYSA_CCLISTCR3]; IS THIS AN ESCAPE OR CSI 
DF if 1E 64 BNEQ 26$ ; NO THEN DON'T COUNT IT 
BE 4 1E 668 TSTL (SP)+ ; DO NOT RETURN TO BSB TO DROP 
OODE 1 O14 64 BRw ESCAPE 3 t** FALL INTO THE ESCAPE CODE 


PR at a tt a 8 be a as es we ne a ss st 


QW NH HH MMMM MMMMMMMMMMMmMmmMmmMmmMmmMmmmnmrmrmrmnirnrnicrnicnrrnicrnicricrirrirricnicrirrirricty > 
PRA OOOO NNN eerwwTwTwvrws Oe 


DDD DDD DDD DD DDD DPA PAPA AAA AA AA AAA AA AAA AAA A AA AAA OD 
WOO OO O09 0909 09 69 09 09 09 69 09 SI NINN NN NS NPA AA AA AA AA MMIII 
MEAN @§ OOO NAUE WN OS OD NA NE WIN  O ODNAU EU SOOO NOUS Ur 
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~SBTTL FORMAT LOCAL = FORMAT CHARACTER FOR OUTPUT 


> 
FORMAT_LOCAL = FIND PROPER OUTPUT FOR SPECIFIED CHARACTER 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE re ae yt THE specie ree cranes Tee A OUTPUT 
ON THE TARGET UNIT FOR A_NOECHO Mt My rie TPUT OF THE 


SEQUENCE MAY Y Bb THE STARTUP OF THE PROPER MULTIECHO 

STRING. OTHERWISE CURSOR ADJUSTMENT Is ALSO DONE HERE FOR PRINTING 
CHARACTERS FORM C TERS. 

IT 1S POSS IBLE FOR THE ARESULT TO BE NO OUTPUT. 


SEE EACH SPECIAL CHARACTER ROUTINE FOR MORE DETAILS ON ECHOING. 
INPUTS: 


i 


OUTPUTS: 
Re = ADDRESS OF THE UNIT STATE VECTOR 
R35 = CHARACTER TO OUTPUT NEXT IF ANY 
R5 = UCB ADDRESS 


= ADDRESS OF THE UNIT STATE VECTOR 
= CHARACTER TO TRANSLATE 
= UCB ADDRESS 


FORMAT _LOCAL: 


CASE W*TTYSA Soa dS et LIMIT=#1ATTYS$V_CH_SPEC, TYPE=B,<- 


LOgAL.- 
FEE 


: SPECIAL FORMATTING WAS NOT N 
: FOR THE LOCALLY-ECHOED CHARA 


BSBB ADJUST_CURSOR 
Rw ETNEXTCHAR 
BRW OUTPUTANDWAIT 


ceed CURSOR 


onm 
—m 
mo 


JUST CURSOR 
T ANOTHER CHARACTER 
GOOUT: 


ie} 
TTDRVR.SRCITTYCHARO.MAR; 1 
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TTYCHARO - Ter l_ driver character out ue R ti 16-SEP-1984 :21: AX/VMS Macro V04-00 P 1 
v04-000 CHARA OUTPUT FORMAT ACTION ROUTINES miler 7 bei) ify TTDRVR. sae REIT TYCHARO.MAR; 1 seas 8, 
-SBTTL CHARACTER OUTPUT FORMAT ACTION ROUTINES 
-SBTTL BACKSPACE = output a backspace 


BACKSPACE = OUTPUT A BACKSPACE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE OUTPUTS A BACKSPACE ON A TERMINAL. 
INPUTS: 

nS = wore s OF THE UNIT STATE VECTOR 

= UCB ADDRESS 

OUTPUTS: 
eooness OF THE UNIT STATE VECTOR 


ADDRESS at THE BS/SPACE/BS STRING IF APPROP. 
UCB ADDRESS 


@ 
= 
anun 


3 BACKSPA ce 
ECW UCB$W_TT_CURSOR(R5) 3 ADJUST HORIZON 
BRw SU TPUTANDUAST 3 OUTPUT WHE CHARACTER 


SQ NIOOO IS 


MINN 2 2 SS SB IQ ODO (U-- 


NM OVOONOAUE WN" OOONOUE WN "O0En Cc 


eal 7 


TTYCHARO ver character out ut ome 16-SEP-1984 1:31 VAX/VMS Macro v04-00 P 19 1} 
v04-000 mat a@ carriage return “SEP-1984 z 88: 46; :19 CTTDRVR.SR REIT TYCHARO.MAR; 1 _ (12) ve 
-SBTTL CARRIAGE = format a carriage return 


oe 
CARRIAGE = FORMAT FOR CARRIAGE RETURN 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SETS UP THE PROPER FILL FOR A CARRIAGE RETURN ON 
THE TARGET UNIT. 


i ri 
G or 
4 
He 
43g 
f : : INPUTS: 
7 § 3 R2 = ADDRESS OF THE UNIT STATE VECTOR 
7 3 R5 = TTYSC_CR 
; 4 3 H R5 = UCB ADDRESS 
oy 3 OUTPUTS: 
rs : R2 = ADDRESS OF THE UNIT STATE VECTOR 
8 743 ; R35 = TTY 
744; R5 = UCB ADDRESS 
0208 745 ;-- 
6 08 146 CARRIAGE: : 
0B 74 CLR_STATE <NL> ; SET NOT AT NEW LINE. 
O20F 748 CROUTPUT: 
0 4 749 IF =STATE - 3; If in a write state, branch 
QO20F 750 WRITE,115$ 3: forward. 
021 751 IF _NOT_STATE = : If not in a read state, also 
021 P36 READ,115$ s oh ae gl perwere. 
021 75 IF_STATE <MULTI,EDITREAD>,130$ ; er abgne or wrap 
51 78 AS 0 0 ig 754 MOUL ucBs _SV PTE(RS),R1 g cer THE "BRRET A 
54 30 Al . s § 755 MOVZWL TTY$W_RB LINOFF (R1) R4 ; GET THE OFFSET D This CHARACTER 
2C Al 2C B144 =9E 0226) 6756 MOVA @TTYSC_RB_LIN(R1)CR4J,TTYSL_RB_LIN(R1); AND MAKE THIS THE NEW 
0 Al B4 8 C 757 TTY$W_RB_CINOFF (R1) : LINE BEGININNG 
2 Al B4 F 758 LRW TTYSW_RB_LINREST(R1) JUST we Sune WE ARE AT THE END 
3c 0122 C5 07 E1 0232 759 BBC #Ttys?_PC _NOCRLF ,UCBSW_ tt -PRICTL(R5),110$;SO JUST ECHO THE CHARACTER 
0338 760 SET_STATE. SKIPLF ;"NO FREE LINEFEED 
41 11 : 1) BRB™ 115$ ; ELSE DON'T DO THE LINEFEED 
033 res 130$ IF _NOT_STATE CTRLR,110$ : 
8 4 765 ; THE ro Louies CODE WILL INSERT A LINEFEED AFTER ANY CARRIAGE RETURN 
4 766 ; THAT IS THE LAST CHARACTER IN THE READ PROMPT STRING OR IN THE READ BUFFER 
4 767 ; It SELF. ANY <CR> CHARACTERS IN THE PROMPT STRING PRIOR TO THE rast CHARACTER 
ri £8 3; ARE NOT TOUCHED. 
go 4 770 MOVL UCBSL opuneree R5),R1 ; GET THE READ wet ADDRESS 
C 0246 771 MOVZWL TTYS$W"RB_PRMLEN(R1) sre : GET THE NGTH 
9E 4A ore MOVAB TYSA_RB <PRACRA) ERAS R R4 ; AND THIS i, THE A DDRESS 
Di O24F 77 CMPL BSL TT“MULTICRS).R&  : IS THIS CR PAST END OF pPROMPT? 
1E 54 774 BGEQU 12$ ; YES THEN FORCE LINEFEED 
56 775 ; Im the case where we are sending a clear to end of Line sequence (signaled 
56 £76 3 by SRIPCRLF being set) then 
56 777 ; we don't want the Linefeed to show up if there is one after a leading 
22 78 ; <CR>, The case where there is a leading Linefeed is handled Ss 
36 179 > setting SKIPLF in the EDITREAD routine. 


TTYCHARO 


- Terminal driver character out a reel 16-SEP-1984 1:3 AX/VMS Macro V04-00 Page 
v04-000 CARRIAGE = format a carriage return =SEP=1 1984 ie ¢ 79 {TTD DRVR.SRCITTYCHARO.MAR; 1 . 3) 
é IF eNO! STATE, SKIPCRLF, 115$ ; IF NO LINEFEEDS WANTED THEN 
A CLR STATE <Sk IPCRLF> : CLEAR_NO LINEFEED 
54 785 00000048 BF C1 E bot L_RB DATA+1 ,UCBS$L_SVAPTE (RS) ,R GET THE ADDRESS OF THE 
54 p8 cS D1 6 i (Bee Lf “MULTI(R5) RG ~ ; FIRST CHARACTER And SEE IF THIS IS IT 

1112 C 785 SNERU + NO THEN HANDLE NO RMALY 
$5 7 : SET STATE $SKIPLF> + OTHERWISE SKIP THE 'LINEFEED 

0B 1 fe , f BRB 15 : AND HANDLE NORMALY 
74 789 110$: 
74 790 IF _STATE <SKIPCRLF>,115$ 
28 791 1 $: SET_STATE <SENDLF,SKIPLF> ; SET STATE TO FORCE LF AND SKIP NEXT REAL O 

OOFC C5 84 7F 134 CLRW UCB$W_TT_CURSOR(RS) : RESET HORIZON 
Op OOFF C5 91 83 794 CMPB UCBSB"TT“LASTC(R5), = : OPTIMIZATION: was LAST CHAR 

B 795 #TTYSC_CR ; A CARRIAGE RETURN? 

OF 13 0 88 796 BEQL DROP ON'T OUTPUT ANOTHER 

0102 cS = OOF6 C5 90 8A 797 MOVB UCBSB_TT. CRFILL(RS), ucesb. 1 “ett ta3»: SET UP FILL 
03 13 0291 798 BEQL 120$ “IF"EQL THEN OUTPUT 
0293 799 SET_STATE FILL : OTHERWISE OUTPUT 
FEAF 31 0296 800 120$: OUTPUTANDWAIT 
FD69 31 0299 801 DROP: BRW GETNEXTCHAR : CONTINUE IN NEXT LOGICAL STATE 


. ¢ | 
TTYCHARO - Terminal driver character output routi 16-SEP-1984 AX/VMS Macro V04-00 Pp 1 | TT" 
v04-000 CTRLZ = output control-Z . g- =SEP-1984 t 82: 44) 3 TTDRVR. SRE REIT TYCHARO.MAR; 1 gf d 


oe ? -SBTTL CTRLZ = output control-Z 
C 5 ;++ 
$c $ : CTRLZ = OUTPUT A CONTROL Z BASED ON THE OPERATION 
3¢ : : FUNCTIONAL DESCRIPTION: 
3 10 + IF THE CURRENT OPERATION IS A READ AND THE “Z IS A TERMINATOR THE ECHO “Z. 
9C 812 ; INPUTS: 
029¢ 18 
9¢ B14: Re = ADDRESS OF THE UNIT STATE VECTOR 
9¢ «B15: R3 = CONTROL 2 
9¢ 16 : = UCB ADDRESS 
6 9¢ B17: 
3¢ 18 + OUTPUTS: 
0 3¢ 9 F R = ADDRESS OF THE UNIT STATE VECTOR 
029¢ : ; R4 = ADDRESS OF THE MULTIECHO STRING FOR CONTROL Z IF APPROP. 
029¢ 8 ; R5 = UCB ADDRESS 
029¢ 4 :<- 
029C 825 CTRLZ: : CONTROL 2 
029€ 826 IF_STATE WRITE, 300$ : IF THERE IS A WRITE ACTIVE THEN 
02A0 827 + ECHO NORMA 
02A0 828 IF NOT_STATE READ 300$ + OUTPUT 26(8) IF NOT READ 
0204 829 IF“NOT-STATE E L $008 ; “2 IF TERM 
54  Q0000000'EF DO O2A8 830 MOUL TTYSACE Thi TECHO ADDRESS Bop iecte STRING 
08 48 AS) «61D)~«COEW «COO2AF 831 piyosye DECCRT. OCBSL _DEVDEP PND2(R5) ,299$ 
0284 83¢ SET_STATE NINTMULTI ; DON'T ALLOW THIS TO BE INTERUPTED 
54 04 A4 DE 0288 83 MOVAL 4(R4),R4 : OUTPUT THE DECCRT CONTROL-Z 
54 64 DO O2BC 834 299$: MOVL (R4) ,R4 : GET THE ACTUAL STRING ADDRESS 
009 31 O28 835 BRW STRTMULTI : START OUTPUT 
FEB 1 02C2 836 300$: BRW OUTPUTANDWAIT 


QUTPUTTING AN ESCAPE SEQUENCE 
INIT THE ESCAPE SEQUENCE RULES 
RESTORE R1 


SET STATE <ESC_O> 
PUSA R1 


BSBu ESCINIT 
MOVB a) -UCES8_TT_ESC_O(RS) 
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TTYCHARO - Terminal driver character output routi 16-SEP-19 2:21:31 VAX/VMS Macro V04-00 P 
04-000 Selle @ Narant an seteae cheretiae ~SErI BBs BE FLi th PENNS Bacco ee OO uans1 Om oF 
: 38 -SBTTL ESCAPE = format an escape character 
¢ 40 ; 
c ti : ESCAPE = FORMAT A ESCAPE BASED ON OPERATION AND TARGET UNIT 
C i§ | : FUNCTIONAL DESCRIPTION: 
c 45 : THIS ROUTINE FORMATS ESCAPES. 
c oP t READ OPERATION: 
¢ a3 | : A ''$'" IS ECHOED IF THE ESCAPE IS A TERMINATOR. 
c 3] : WRITE OPERATION: 
C 3g : THE ESCAPE IS OUTPUT. ON TERMINALS WITH THE CHARACTERISTIC TT$M_ESCAPE, 
0 C3 34 ; THE REMAINDER OF THE SEQUENCE IS CHECKED FOR SYNTACTIC CORRECTNESS. 
0 3 36 + INPUTS: 
0 CS 58 : Re = ADDRESS OF THE UNIT STATE VECTOR 
0 C3 60 : R5 = UCB ADDRESS 
: C3 B6¢ + OUTPUTS: 
02¢5 Ha ; Re = ADDRESS OF THE UNIT STATE VECTOR 
Q2cS 865 ; R3 = ESCAPE OR ‘'$' 
a8 866 ; R5 = UCB ADDRESS 
05¢5 868 ESCAPE: ; OUTPUT ESCAPE STRING 
0265 869 IF_NOT_STATE EOL 2508 ALSO IF NOT TERMINATOR 
08¢9 870 IF~STATE <MULTI,WRIT TE. EDITREAD>, 2508; eMULTIECHO THEN ASSUME SEQUENCE 
53 24 «OA OO 09 71 MOUZBL #TTY$C_DOLLAR.R3 ; OTHERWISE ECHO DOLLAR SIGN 
FED! 30 02D 87 BSBW ADJUST -PORSOR’ ADJUST CURSOR 
FEOF 31 «0 D6 oe BRW OUTPUTANDUATT ? AND OUTPUT 
0 D9 3 i : QUTPUT ESCAPE ON WRITE OR CONTROL R 
0 D9 «B77 4550S: 
16 48 AS 18 £0 0209 28 BBS #TT2$Vv ANS] RI. UCBSL_DEVDEPND2(R5),255$ ; BR IF ANSI TERMINAL 
0 D 7 IF STATE ashing 1S THIS ESCAPE’ 
41 a5 40 8F 91 Es 80 cn NPB #TT$_VT mittee DEVTYPE(RS? :VT5X OR VT100 TERMINAL? 
9 18 E 1 $258 If’ LEQU, then maybe. 
11 3 § 60$ : Otherwise, no. 
EB 4 2528: 
41 AS 80 8F 91 OE 5 MPB ss #TT$_VT100+32, UCBSB_ DEVTYPE (RS) 
02 #1A 9 $ BGTRU sine GTRU, then yes. 
1A—si111 : Bee 60$ : Bee My no. 
¥ g 255$: 
F 0 
51 D O2F 91 
01 f F 3 
0104 C5 ; F 9 
1 8ED 0 94 


WDOl eS & 


POPL 


—E 6 
driver character output routi 1 ~$60= 138 
ormat an escape character EP-19 


NOT STATE <MULTI>,260$ 
STATE <EDITING>,2 3568 


IF_ 
1F- 
CLRW UCBSW_TT CURSOR (RS) 
BRw OUTPUTANBWA 


4-00 
REIT 1 YCHARO.MAR; 1 


NG AND EDITING 
CURSOR 


om DO 


LUMN) POSITION 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 :21:31 VAX/VMS Macro v04-00 Pa 4 
Vv04-000 LINEFEED = format a Line feed 4 g- Hie geal t) TTDRVR.SRC REI TTYCHARO.MAR; 1 - (i) 
] § -SBTTL LINEFEED = format a Line feed 
1 4 5++ 
5 ; LINEFEED = FORMAT LINE FEED FOR TARGET UNIT 
§ ; FUNCTIONAL DESCRIPTION: 
1 § : THIS ROUTINE SETS UP THE PROPER FILL FOR A LINE FEED ON THE TARGET 
! 19 ; UNIT AND ADJUSTS THE CURSOR AND VERTICAL LINE COUNT. 
a§ : INPUTS: 
gif ; i = ADDRESS OF THE UNIT STATE VECTOR 
PY = 
316 : R5 = UCB ADDRESS 
8 : OUTPUTS: 
0 15 920: R2 = ADDRESS OF THE UNIT STATE VECTOR 
1 921 ; R3 = TTY$SC_LF 
8 | 4 ¢ : R5 = UCB ADDRESS 
031 924 ° -ENABLE LSB 
6 13 925 LINEFEED: 
38 04 A2 «(ODO 6 13 3 $ BBSC #TTYSV_ST_SKIPLF,4(R2),227$; SKIP AND SET OFF SKIP CONDITION 
8 2 2 8 ; NOTE THAT BECAUSE OF ACBB'S SIGNED BRANCH IT IS NOT APPROPRIATE HERE. 
1A 980 CrouTPuT: 
OOFC cs 85 1A 3 1 Tstw ycasu.TT CURSOR(RS) ; LINE FEED Ryo ne Poss 0 IS NEWLINE 
6 9 g SET STATE N : SET NEW LIN 
OOFE C5 (9% 4 3 4 210$: INCB UCBSB_TT_LINE(RS) : ADJUST V RT CAL COUNT 
47 a5 OOFE C5 91 8 5 CMPB UCBSB_TT_LINE(R5) ,UCBSL_BEVDEPEND+3(R 
04 «#1F ; 9 $ BLSSU _ 215$ ; IF LSSU THEN NO PAGE CROSS 
OOFE C5) 94 9 LRB  —dUCB$B_TT LINE (R5) ; RESET VERTICAL POSITION 
4 9 $ 215$ IF _NOT STATE QRITE,220$ : BR IF NOT WRITE 
54 0004 C5 00 8 9 QL ~ UCBSL_TT_WRTBUF(RS).R4 : Address current write buffer. 
54 oh AG 9 D 940 MOVL TTYSL_WB_IRP(R4) ,R4 ; Get associated IRP address. 
03 (1 41 941 BEQL 2208 ; Branch itn o IRP. 
38 Ad é 43 34¢ INCW IRPSL_MEDIA(R4) INE 
0102 cS =: OOF7 C5 46 943 220$:  MOVB UCBSBLTT _LFFILL(RS), sucess. 9 TRILL (R e INSERT TO CAUSE FILL 
03 (1 4D 944 BEQL $ OUTPUT IF NO FILL NEEDED 
4F 43 SET_STATE FILL OUTPUT FILL CHARACTERS 
FDF3 31 32 46 3358: BRW OUTPUTANDWAIT 
FF41 1 55 $: BRW 
0358 948 .DISABLE LSB 


TTYCHARO - Terminal driver 
v04-000 TAB = Output a ta 
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, Sharecter auton soot a at 9 Sake 


AX/VMS Macro v04-00 Page 2 
TTDRVR. SRE REIT TTYCHARO.MAR; 1 (16) 


-SBTTL TAB = Output a tab. 


+ 
TAB = OUTPUT A TAB ON THE TARGET TERMINAL BASED ON CURSOR POSITION 
FUNCTIONAL DESCRIPTION: 


3+ 
$ ; THIS ROUTINE IS ENTERED TO OUTPUT A TAB ON THE TARGET UNIT. 
8 : IF THE TERMINAL HAS MECHANICAL TAB THEN THE TAB GOES DIRECT. 
59 : OTHERWISE, THE CURSOR POSITION IS USED TO CALC. HOW MANY BLANKS 
960 : TO OUTPUT TO MOVE THE CURSOR TO THE NEXT TAB STOP. 
$e > INPUTS: 
64 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
5 92 3 R35 = TTY$C_TAB 
5 66 ; R5 = UCB ADDRESS 
; see : OUTPUTS: 
3 $70 : RQ = ADDRESS OF THE UNIT STATE VECTOR 
Py = 
6 5 37¢ ; R4 = ADDRESS OF TAB MULTIECHO STRING IF APPROP. 
3 03 ; RS = UCB ADDRESS 
54 OOFC CS 03 00 EF 0358 975 faB:  EXTZV  #0,#3,UCB$W_TT CURSOR (RS) ,R4; GET HORIZON POINTER 
O35F 976 IF STATE | TABE XPAND 525 "EX S 
OC 44 a5 08 EO 0363 97 BBs _MECHTAB, UCBSL -DEVDEPEND (5) 3 0S; OUTPUT IF MECHANICAL HELP 
51 08 546 A3 0368 978 525$:  SUBW3 1 :SET THE ghENGTH OF THE TAB 
54 0001'CF 9E 0 $¢ 979 MOVAB Ras fach TABST, R‘ ADDRESS S TO OUTPUT 
OCFA 31 8 4 ++ BRW STRTMULTI_ ; START fur Tince OUTPUT 
r ? gi ? MECHANICAL TAB TERMINAL 
r 3 4: : THIS ROUTINE ASSUMES THAT THE TABS ARE SET ON 8°S 
41 AS 40 ar 4 a 4 6 6305: CHPB etTs. VT5X,UCBSB_ DEVTYPE (RS? IN RANGE E FOR SPECIAL CASE VT5Sx 
41 AS 80 a 1 3 : CHPB its. VT100+32,UCBSB_ vevripeinsis | 
53 42 a5 O0FC C5 AS 990 SuByS : BS. TT_CURSOR(RS), ucasi “TP PeGS He atte DISTANCE FROM RIGHT 
53 8 B1 : CMPW 0B RB : IN LAST TAB SPACE? 
: 1E BGEQU 525$ : IF TRUE THEN SKIP MECH TAB 
53 b 9A 4 5348: MOVZBL #TTYS$C_TAB,R3 : 
oF ¢ cS O54)SCOAAsC089 5 535$: ICW  R&,UCBSW_TT_CURSOR(RS) ; SETUP CURSOR STOP ON 8 
Orc CS) «6008 )«=—sé0389 996 ADDW PB, UCBSU=TT_CURSOR (RS) ; 
90 43 CLR_STAT c ; No longer at newline; haven't 
9 3 ; just wrapped. 
FDA3 31 A BRW QUTBUTANDWAIT ; 
AS ? : FOR LOCAL TABS, TRACK POSITION, BUT DON'T ECHO 
Ae 1508 * 
54 OOFC CS OO 0 €F rn 1 ¢ - LOCAL TZ #0,#3 ,UCBSW_TT CURSOR(RS).R4; GET HORIZON POINTER 
SOFC 0 9? AA O3AC 1006 BICWy Os «RG, icésu 1T ~ CURSO (RS) ; SETUP CURSOR STOP ON 


vo4-000" Tab c"Output a tebe res Ute trout SSER SBS BEERS UETTORUR.SRESPrYCnano.man:1 "28° (985 


OOFC CS 08 Ad 1 1007 ADDW #8, UCBSW_TT_CURSOR(RS) ; 
! 5 CLR_STATE = 
FC47— O51 1 BRW GETNEXT CHAR ; GET NEXT OUTPUT CHARACTER 
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— 


Ss 


To 
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coco wee 


Ww 
ow 
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driv -SEP-1 1:31 VAX/VMS Macro v04-00 Page 27 
- output a vertical tab, or -SEP-1 1382 8: #4 719 CTTORVR.SRCITTYCHARO.MAR; 1 ° (a) 
} 18 -SBTTL VTAB, FORM = output a vertical tab, or form feed 

1014 ;4¢4 

1015 : VTAB = OUTPUT A VERTICAL TAB 

1 ; FORM = OUTPUT A FORM FEED 

18 ; FUNCTIONAL DESCRIPTION: 

1 p : THIS ROUT INE SETS UP THE PROPER OUTPUT STRING FOR A VTAB OF FORM FEED 

1 ; ON THE TARGET UNIT. VTAB TRANSLATES TO 4 LINE FEEDS. AND FORM 

1 ¢ : TO MULTIPLE LINE FEEDS BASED ON THE PRESENCE OF MECHANICAL tp. 

1 ; AND THE CURRENT VERTICAL LINE POSITION. TO AVOID THE NECESSI 

1024 ; FOR A LARGE NUMBER OF LF DATA BYTES THE FORM FEED CAUSES A MULTI 

1025 : STRING OF 4 LINE FEEDS FOLLOWED BY ANOTHER FORM FEED TO BE 

$ ; OUTPUT UNTIL A PAGE CROSS TAKES PLACE. 

8 : INPUTS: 

1030 ; = ADDRESS OF THE UNIT STATE VECTOR 

1031 ; i = C_VTAB OR C_ 

! § 3 2 ute ADDRESS” 

10 4 : OUTPUTS: 

19 : : R? = ADDRESS OF THE UNIT STATE VECTOR 

10 : R5 = UCB ADDRESS 

1 3 VTAB: MOVAB W*TTYSA_VTAB,R4 ; SET UP OUT 

40 BRW STRTMULT! : START MOLTIPLE OUTPUT 

104¢ : FORM FEED 

1044 FORM: BBC #TTSV_MECHFORM, - : BRANCH IF TERMINAL DOES NOT 

1045 yCBsi DEVDEPEND(RS), + SUPPORT MECHNICAL FORM FEEDS 

1009 CLRB  —s UCB$B_TT_LINE(RS) : RESET LINE POSITION 

1048 BRW OUTPUTANDWAIT ; 

1049 505$:  CLRL SEND MULTIPLE LINE FEEDS 

1050 SUBB3 UCB$B_TT_LINE(RS) ,UCBSL_ beVDEPEND+5<RS) ),R4; GET NUMBER TO END OF PAG 
1051 CMPB 4,84 ; OUTPUT THE LF'S IN GROUPS OF 8 

1 3g BGTR : IF eTRU. THEN MORE THAN 4 TO OUTPUT 
1053 510$:  ADDW3 #1,R4,R1 : GET THE NUMBER OF LINEFEEDS 

1054 MOVAB wW*“TTY$A_FORM+1,R4 : GET THE ADDRESS OF THE STRING 

1 33 RW STRTAULTI 1 : START 

1 6 520$: MOVAB W*TTYSA_LONGFORM,R4 : GET ADDRESS TO STRING 

105 BRW STRTMULTI : 


188 
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mk rout CHEESES BAL 


DISPATCHER SERVICE ROUTINES 


AX/VMS 
TTDRVR.S 


v04-00 
§fry YCHARO.MAR; 1 


m iB) 


0100 


r 


53 


FBFF 


— 


31 


COOMA HNN HHAHHNAHNHHH OF 


AWOS POLL R RELL ELSE EEE oe 


2-— 
ao 


a nn dD tt tt 


tie | 
se 


yer pect 
UTPUT N BA 


+ 
BACKSP 
DESCRI 


INPUTS: 


Et 


REcSBREBYE vt! “fogee—tege 82:40:95 TORVR. SRESTTYCHARD.MAR;1 28° 


~SBTTL BACKSPACING = OUTPUT N BACKSPACES 

ACING: 

PTION: 

SEND A GIVEN NUMBER OF BACKSPACES TO THE TERMINAL 


T VECTOR ADDRESS 


STATE 
ADDRESS 
-MULTILEN = NUMBER OF BACKSPACES TO OUTPUT 
ING: 
DECW fesu. TT_BSPLEN(RS) 
LS 
MOVZBL #TTYSC_BS, rh 


a ORMAT "CHA 
CLR _STATE BACKSPACE 
BRW GETNEXTCHAR 


; SUBTRACT ONE AND OUTPUT THE BACKSPACE 
; NO MORE phy FINISH UP 


KSPAC 
; ORMAT THE CHARACTER 
; CLEAR THE STATE WHEN DONE 
; AND GET THE NEXT CHARACTER 


Bee Sete tes 
“nz 
ems 
o- 
c 
os 
pom 
& 


(19) 


TT 


ri 
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‘< 
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v04-000 insert newline to handle moet yates CS YT TORVR. SREITTYCHARO.MAR: 1 oi 38) 


or 
Cc 
D4 
ne 
osx 


. -SBTTL CURSOROVRFLOW = insert newline to handle end of Line 
CURSOROVRFLOW = INSERT A NEWLINE IN THE OUTPUT STREAM 
FUNCTIONAL DESCRIPTION: 


mina 
ROVRF LOW 
4 1 
4 1 3+ 
4 1 : 
4 1085 ; 
208 1087 | 
4 1 3 3 THIS ROUTINE IS ENTERED TO INJECT A CR/LF IN THE OUTPUT 
r ! 3 STREAM REGARDLESS OF THE CURRENT STATE. 
. $ ; INPUTS: 
4 1 4 3 Re = ADDRESS OF THE UNIT STATE VECTOR 
" ! + ; R5 = UCB ADDRESS 
r ! 38 3 OUTPUTS: 
4 1 38 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
Be 6 1099; R35 = TTY$C_C 
406 1100; R4 = READ PACKET ADDRESS 
B60 i 1; RS = UCB ADDRESS 
406 11 : CURSOROVRF LOW: ; 
406 1104 CLR_STATE CURSOR 3 CLEAR THE CONDITION 
4 1105 SET-STATE WRAP 3 Signal WRAP Ding. 
40— 11 $ 1F_RNOT_STATE READ,99$ 3 IF WE ARE NOT READING THEN HANDLE NORMALY 
412 11 IF-STATE RDVERIFY,98$ 3 NO CURSOR ORERFLOW ON READ VERIFY'S 
54 78 AS D0 0416 1108 MOUL UCBSL_SVAPTE (RS) ,R4& : OTHERWISE GET THE PACKED ADDRESS 
nels 1109 IF NOT_STATE CTRLR,97$ ;_IF WE ARE CONTROL-RING HANDLE NORMALY 
2c AS) «= (00D CS——séwOTsCKE =1110 CMPL CBSL_TT_MULTI(RS),TTYSL_RB_LIN(R4); IF WE AREN'T ON THE LAST LINE 
05 18 424 1111 BLEQU 9 7 TREN DON'T WORRIE ABOUT LINREST 
32 a6 «2B 4 § Wie 97$: TSTw TTYS$W_RB_LINREST(R4) ; ARE WE IN THE MIDDLE OF A LINE 
Ob 12 04 111 BNEQ ; YES THEN LEAVE THE STATUS QUOE 
53 0D 9A 0428 1114 99S: MOVZBL #TTY$C_CR,R3 ; SET FIRST CHARACTER IS CARRIAGE RETURN 
4 ; 1115 SET_STATE <SENOLF ,SKIPLF> ; FORCE A FREE LINEFEED 
FDD7 1 04 1116 BRwW CROUTPUT : CONTINUE WITH CARRIAGE RETURN CODE 
FESE 1 04638 1117 98$: BRW DROP 


TTYCHARO 


v04-000 


>) 
te 


er errr r outpu 
e end of tf : 


-SBTTL EOLSEEN = handle end of Line condition 


ne utpuf rout "Bree e i 8ke Oc:fo.t9 LT TONUR.eaeaeT¥onano.mar:1 29° (3, 


me 
oO 
a] 
“ne 
ms 


+ 
EOLSEEN = END OF LINE SEEN 
FUNCTIONAL DESCRIPTION: 


THIS nh dE IS ENTERED AFTER AN END OF LINE CHARACTER HAS 
TERMINATED A READ RECORD AND THE ECHO OF THAT CHARACTER IS COMPLETE. 


THE oe IS TO COMPLETE THE READ OPERATION AND IF NECESSARY, 


PRR RR RRR PPR RRR RRP PPR Zo 


m driv 
E andl 
B 11 
B 11 
B 11 3+ 
B 11 § § 
B 11 3 
B 1124; 
B 1125; 
B 11 : : 
B i127: 
8 1158: 
: 1 p : SEND A 
8 1 : : INPUTS: 
B 1134; R? = ADDRESS OF THE UNIT STATE VECTOR 
2 1 5: = UCB ADDRESS 
6 ; 1 ? : OUTPUTS: 
0 B 1139: Re = ADDRESS OF <THE UNIT STATE VECTOR 
0 B 1140 ; = UCB ADDRESS 
0 38 1148 EOLSEEN: : END READ OPERATION 
8 3B 1144 : IN ORDER FOR THE FINAL CHARACTERS OF A READ VERIFY READ TO ECHO 
0438 1145 : PROPERLY geil READ MUST BE ALLOWED | TO COMPLETE THIS CAN BE DONE 
0438 1146 : IN TWO WAYS, FIRST CHANGING THE STATE DISPATCHER TO ALLOW EDIT READ 
0438 1147 : TO WAVE WATOHER PRIORITY THEN ~ Say THIS FIXES EOL IN THE STATE TABLE 
; B 1148 : FOR NOW AND FOREVER. BY PUTTING THIS CODE HERE IT ALLOWS EOL TO 
0 8 1149 : MOVE TO ANY PLACE IN THE STATE DISPATCHER. 
0438 1151 ° IF NOT_STATE RDVERIFY,5$ : LET EDIT READ COMPLETE UNDER 
43F 1138 IF“NOT-STATE EDITREAD,5$ : READ VERIFY 
0905 31 443 1133 EDITREAD Ries 
7c AS 01 «9B 0446 1155 5$ MOVZBW #SS$_NORMAL,UCBS$W_BOFF (RS); SET STATUS 
FBB3' 30 O44A 1136 BSBW TTYSREADONE ; COMPLETE THE 1/0 
FBBO 31 044D 115 BRW TTY$GETNEXTCHAR : CONTINUE 


TTYCHARO nal driver character out ut A 16-SEP-1984 02:21:31 VAX/VMS Macro v04-00 P 
v04=000 at continue outeUEe ing Fatt chara SoSep-1ope Ocstoste LATORUR.caeseryenao.mar:1 2% (35) 


1}? -SBTTL FILLING = continue outputting fill characters 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 1 
5 1 
5 1 
5 1 
5 1 
at 
3 
54 11 
56 11 
59 11 
5B 11 


~"s 


+ 
FILLING = CONTINUE FILL OUTPUT 
FUNCTIONAL DESCRIPTION: 


3+ 

: THIS ROUTINE 1S ENTERED WHILE THE TRMSY FALL STATE IS ON. 

: THE FILL COUNT IS DECREMENTED AND IF NON 0 A FILL IS OUTPUT 
: IF THE COUNT GOES TO 0 THEN THE FILL STATE IS CLEARED. 

: INPUTS: 

; R2 = ADDRESS OF THE UNIT STATE VECTOR 

: = UCB ADDRESS 

: OUTPUTS: 

; Re = ADDRESS OF THE UNIT STATE VECTOR 

; R5 = UCB ADDRESS 

FILLING: : OUTPUT CONTINUING FILLS 


ECB CBSB_TT_FILL(RS5) 
BNEQ $ 

te arate FILL 
BRW OUTPUTANDWAITI 


; ag} FILL 


~m 
wm 
oe 


ermi 
LING 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
04 
04 


kt 
AE WN CO OONAUE WN "OO OONOUES Ut" OO 


09000909 090908 SII NINN NINO OOOO OAAOAO 


Sete Ge Ge Ge & 
~ 
4 
m 
“ 
= 
m 
2 

22q0 
oo 

o-Cc 
L=J 
So 
za 
m 
~ 
m 
pa 


FF 
; SET fie CHARACTER 
; OUTPUT THE CHARACTER 
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ntinue outputting multi 5=-SEP-1984 ge: 5:39 YT TORVR. SREITTYCHARO.MAR: 1 ’ (3%) v04 


-SBTTL MULTIECHOING = Continue outputting multiecho sequence 


TTYCHARO 
v04-000 


—— 
z 
oa 
7 
‘— 
< 


ze 
Cc 

ae | 
oH40 
-_—9 
oe 
o7 


+ 
MULTIECHOING = CONTINUE MULTIECHO STRING OUTPUT 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE pitt T 4 Ne SET. THE NEXT 


IS D WHEN TTYSV_S 
CHARACTER IN THE STRING ADDRESSED By OCBSL_TT_MULTI IS OUTPUT. 
IF THE NEXT CHARACTER IS ZERO THEN THE STRING OUTPUT IS COMPLETE 
AND THE MULTIECHO CONDITION IS RESET FOLLOWED BY A RETURN TO 
THE OUTPUT STATE ANALYSIS ROUTINE IN GETNEXTCHAR. 
IF A_LENGTH IS SPECIFIED IN UCBSW_TT_MULTILEN, THEN IT IS USED TO DETECT 


THE END OF STRING. pie we 
INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R35 = UCB ADDRESS 


UCBSW_TT_MULTILEN = ALTERNATE LENGTH 


Pete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Sse Ge Ge Ge Ge tsetse Ge Ge 
a 


SMWMMMMMMMMMmMMmMMmMmmMmMmmMmMmmMmmmmmmmmmmmrmn Og 


COOOOCOOCOCOCOOOOOOCOOCOCOCOOOOCOOOCOOOCOOCOCOOOOOOOOOCOO mgs 
Py at at at a eee eee ee 
RA elle eee le => 


aa a et at at = = = = = 2 = — — 9 2s SS SS ss SS 


POPRIPROPOPOPEPOPOPONNOPOPONOPONONOPONOPOPONPONPUNONPONINY 2 


RMINININININININ 2 3 I MODOC ODOOOOCOCOOWOOOOOO0OOOMO 


DWNAVUE WN @ OODNA UE WN OOO NAULS WN OQ OONAULS Wilh OOo 


OUTPUTS: 
Re = ADDRESS OF THE UNIT STATE VECTOR 
R3 = CHARACTER TO OUTPUT ( FALL THROUGH TO ECHOFORMAT ) 
R5 = UCB ADDRESS 
MULTIECHOING: ; CONTINUE STRING MULTI ECHO 
00pc cS B87 DECW YCBSW_TT_MULTILEN(RS) : DECREMENT THE COUNT 
23 «18 BGEQ 0$ : CONTINUE IF MORE LEFT 
0008 cS = 00E0 C5 MOVL  UCBSL_TT_SMLT(R5) ,UCBSL_TT_MULTI(RS); RESTORE SAVED ADDRESS 
OODC C5 OODE c3 80 8 mov UCBSW_TT-SMLTLEN(RS) ,UCBSW-TT_MULTILEN(R5);AND LENGTH 
4 CLR_STATE <MULTI ,NINTMULTI> ; NO MORE THEN RESET THE STATE 
FB86 31 C BRW GETNEXTCHAR ; AND GET THE NEXT CHARACTER 
OODE C5 BS F 10$:  CLRW UCBSW_TT_SMLTLEN(RS) |: CLEAR THE SAVED LENGTH 
oopc C5 87 3 DECW  UCBSW-TT-MULTILEN(R5) |; SUBTRACT OUT THIS CHARACTER 
53 0008 DS 9A ? 20$:  MOVZBL @UCBSC_TT MULTI(RS),R3 ; GET NEXT MULTI ECHO CHARACTER 
0008 C5 06 C INCL  UCBSL_TT_AULTI(RS) : ADJUST POINTER 
FCF4 31 0 BRW FORMAT_CRAR : 


me 
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\_ driver character output routi 16-SEP-1984 peel: 3 AX/VMS Macro V04-00 Page 3 
EED = output a Line feed -SEP-1984 :16:19 (CTTORVR. SRE REIT TYCHARO.MAR; 1 (24) 

! 9 -SBTTL SENDLINEFEED = output a Line feed 

1 p++ 

; SENDLINEFEED = INSERT LINE FEED IN OUTPUT STREAM 

5 : FUNCTIONAL DESCRIPTION: 

5 : THIS ROUTINE IS USED TO INSERT A LINE FEED IN THE OUTPUT STREAM. 

33 > INPUTS: 

1041 : Re = ADDRESS OF THE UNIT STATE VECTOR 

4 ; R5 = UCB ADDRESS 

44 : OUTPUTS: 

1 46 : i = ADDRESS OF THE UNIT STATE VECTOR 

1247 ; R3 = TTY$C_LF 

48 ; = CB ADDRESS 

1250 eb ; SEND OUT A LINE FEED 

1251 CLR STATE SENDLF + CLEAR CONDITION 

1 26 MOVZ7BL #TTYSC_LF,R3 : SET TO OUTPUT LINE FEE 

125 BRW LFOUTPOT > CONTINUE IN LINE FEED CODE 


TTY 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 02:21:31 VAX/VMS Macro v04-00 Page 35 TT) 
v04=000 ESCAPE SEQUENCE PARSING SERVICES ety 7 vat eet YT TORVR. SREITTYCHARO. MARS 1 . (38) v0« 
49 .SBTTL ESCAPE SEQUENCE PARSING SERVICES 
49C 1057 : 
age 8 t ESCINIT = INIT ESCAPE SEQUENCE RULES 
49C 1260 ; INPUTS: 
49 61: R3 = CHARACTER THAT IS INTRODUCER 
ret 1 8 t OUTPUTS: 
49C 1264 : Ri = RULE TO START AT (BYTE) 
49C 1265 ; 
9C 1 66 ESCINIT:: 
51 D4 «60469C (1 CLRL RT : USE THE NORMAL RULES 
80 8F 53 «91 O49e 1268 CMPB —sR'3,, #* X80 ; IF NOT AN 8 BIT CHARACTER 
08 1F O4A2 1 $9 BLSSu 108 x ee 
51 FFFFFF8O'EF43 90 4Ad 1270 MOVB TTYSA_ESCINIT-*X80CR3],R1; ELSE MOVE THRU THE TABLE 
05 O4AC 1271 10$:  RSB 


54 

54 0103 C5 

1A 

0103 CS) = 54 
54 8ED 

0103 C5 

54 0104 C5 

0104 C5 4 

0000°CF44 3 


0001°CF44 


: 


; 
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ca ce ee me ed dd 8d dd dd dd = 2 dd 8 


ter out 7 ater 16-SEP-1984 02:21:31 VAX/VMS Macro 
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«SBTTL ESCSYNTAX == CHECK ESCAPE SEQUENCE SYNTAX 


HARO.MAR; 1 


soe 
; FUNCTIONAL DESCRIPTION: 


his routine checks the syntax of escape sequences, one 
character at a time. 


INPUTS: 
R3_ contains the next character to be checked for correct syntax 
UCBSB_TT_ESC(R5) contains . offset to the next syntax 

rule in the TTYSA_ESCAPE s gyeten table for input data. 

UCBSB_TT ESC. O(RS) contains the offset for output data. 
Assume RZ is available 

OUTPUTS: 
Condition codes are set: 
CC = POSITIVE means the character is syntactically correct 
CC = EQUAL means syntactic correctness and sequence is complete 
CC = NEGATIVE means error in parsing sequence 
If CC = POSITIVE the UCBSB_TT_ESC (ESC_0) offset is updated. 

INPUT ESCAPE SEQUENCES 

SCSYNTAX 
US 3; SAVE R4 
MOVZBL UCBSB TT_ESC(RS) ,R4 3; GET CURRENT STATE 
BSBB —_SYNTAX™ 
MOVB RZ, UCBSB.. TT_ESC(RS) 3 SAVE HAL. 
POPL 3; AND RESTORE R4 
rere UCBSB_TT_ESC(R5) 3; SET THE CONDITION CODES 

OUPUT ESCAPE SEQUENCES 

SCSYNTAX_O: 
NOV ZBL err TT_ESC_O(RS),R4  ; GET CURRENT STATE 
nove R&,UCB$B_TT_ESC_O(R5S) ; SAVE CURRENT STATE 

; GENERAL SEQUENCE HANDLER 

_SYNTAK 

0$: CMPB R3, W*TTYSA_ESCAPECR4] ; check range of gheracter 
BLSsu 208 branch if not Bhi tu rul e 
CMPB R W°TTYSA_ESCAPE+1(R4J; lower than high Limi 
BGTRU 206 : look to next rule 


v04-00 p 
C age 36, 


TT) 
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TTYCHARO = Terminal driver character output routi 16-SEP-1984 02:21:31 VAX/VMS Macro V04-00 Page 37 TT" 
v04-000 ESCSYNTAX == CHECK ESCAPE SEQUENCE SYNTA ~$6b=} 38% ve 6:19 ETTORVR. SREITTYCHARO.MAR; 1 ° (36) vo 
54 Q0002°CF44 9A O4EO 1 9 MOVZBL W*TTYSA_ESCAPE+2(R4],- ; character is valid 
rt ! RG ; save offset to next rule 
0S 0466 1 j RSB 3; offset=POS => next rule exists 
4E7 1334 ; offset=0 => end of sequence 
atte 
rt t4 ! : : Continue looking for correct sequence rule 
0002'CF44 % 4E7 1 § 208: TSTB W*TTYSA_ESCAPE+2(R4) 3 any next rule? 
0 1 4EC 1340 BEQL $ 3; no; bad syntax 
a 2 co rt 134 ADDL #3, RG ; offset to next rule 
DD «(11 r! ! ri 308 BRB 10$ ; continue syntax check 
54 01 fF rhe 1344 : MNEGL #1, R4 ; error in sequence 
O4F6 1345 RSB 


- Ter 


ROVEREARATATn toy chacecter out ut rant 16-$ aes 9 SaaS AX/VMS Macro V04-00 Page 3) 


MOVE CHARACTER FROM TYPEAH 5=-SEP- TTDRVR.SRCITTYCHARO.MAR; 1 
‘a »SBTTL MOVEREADATA = MOVE CHARACTER FROM TYPEAHEAD TO READ BUFFER 
MOVEREADATA == MOVE CHARACTER FROM TYPEAHEAD BUFFER TO READ BUFFER 

; FUNCTIONAL DESCRIPTION: 

as een MOVES A CHARACTER FROM THE TYPEAHEAD BUFFER AND STARTS 


; NON-IMMEDIATE ACTION CONTROL SEQUENCES ARE HANDLED HERE. 


; BEFORE RETURNING A CHARACTER FOR ECHO IT_IS CONVERTED TO ITS 
¢ MULTIPLE ECHO STRING IF APPROPRIATE. IN THIS CASE THE CHARACTER 
3 RETURNED IS THE FIRST OF THE MULTIPLE ECHO CHARACTERS. 


; INPUTS: 
; RS = UCB ADDRESS 


; OUTPUTS: 


R3 = CHARACTER IF ANY (CC = EQL ) 
R5 = UCB ADDRESS 


FNS FOSCOOOWMSS DOWD F NF 
NAUSEA OS OO NAN EWN OS OO NAME WN OO OD NAME WO OONOUS WOON 


GOTO TABLE 
gti 31 TAB_NOTA: BRW NOTA 
51 5B AS dO TAB-EOLSEEN: MOVL UCBSL_IRP(RS),R1 
38 Al BG CLRW  —s RPSL “MEDIA(R1) 
pre 1 BRw EOLSEEN 
015331 TAB_DISMISS: § BRW DISMISS 
101 1 TAB-BUFEMPTY:  BRW BUF EMPTY 
226 «31 0 TAB_INDELST BRW INDELST 
C1 1 TAB-PASSALL:  BRW PASSALL 
F AF 1 1 TAB-GETNEXT:  BRW GETNEXTCHAR 
2p 1 1 TAB~QUOTE : BRW 
0 EA 1 051 TAB-EDITINGCHAR:BRW EDITINGCHAR 
3 3 1 TAB-ESCINPROG: TSTB R : NO NULLS IN ESCAPE SEQUENCES 
: 1 1 BEQL § TAB_DISMISS 
+ F 1 1 BRw ESCINPROG 
IZA 1 TAB_CVTLOW BRW CVTLOW 
022c 31 TAB-OPEN: BRW 
: MAIN LINE MOVE OUT OF BUFFER CODE 
MOVEREADATA: : 
-ENABLE LSB 
54 78 AS 00 MOVL  UCBSL_SVAPTE(RS) ,R4 : SETUP R4 TO CONTAIN THE ADDRESS OF THE 
14 AG D4 CLRL = TTYSLTRB_ECHSTR(R4) : CLEAN OUT ANY UNUSED ECHO STRINGS 
4006 3C a6. BI CMPW 4 =s-s TTYSW"RB-TXTOFF(R4), TTYSW_RB TXTSIZ(R4); TEST BUFFER FULL 
£ BGEQU TAB_EOLSEEN > "BUFFER FULL THEN END 


: MOVE CHARACTER OUT OF TYPEAHEAD BUFFER 


MOVL UCBSL_TT_TYPAHD(RS) .R4 
BEQL §_TAB_NOTA 


DECW © TTYSW_TA_INAHD(R4) 


3; ADDRESS TYPEAHEAD BUFF 
: NO BUFFER THEN THERE I 
; PROCESS WAITING SO LET 
3; take the character out 


54 O0E4 C5 00 
BC 


of 
ee em a ed ed ad od Sd 8 8 = 3 = = = 8 8 a 3 a SO a 2 a tt 


ere 


et OF Ae AO 8 tet try ee eet ERR PRR BP AWS Ae SE RR Oe re tee = 


aA TAA TATA TA STALTALTALTALTALT ALTA AD TAD AL Ata Ae ae ae ae ae ae ae ae ae ae ae ae ae ae ae oe ae eee ee ee ee 


wr 
— 


OC AS OB? 


— 
— 
— 


S 


11 : AND CONTINU 
: TERMINATOR FOUND BUT BUFFER NOT FULL 


TERMF OUND : 


H 7? 
- Terminal driver character output routi 1 3 < AX/VMS Macro v04-00 Pp 9 
MOVEREADATA = MOVE CHARACTER FROM TYPEAH 138s BE:Fh:4) PATENTS Feet ele ue. PaOe (3, 
(7 19 14 BLSS uF ; IF EOL THEN NO 
53 0684 9A if 14 , MOVZBL ative eh GET(R4),R3 GET THE CHARACTER 
4 16 6 IF _STATE DEL, Tre, INDELST ; ARE WE In” DELETE STATE 
4 16 : ACTUALLY REMOVE CHARACTER FROM BUFFER 
48 1410: 
2 131 3 CHECK FOR BUFFER WRAP AROUND 
04 AG 10 AS F2 05468 1413 408: AOBLSS TTYSL_TA_END(R4),TTYSL_TA_GET(R4),60$; POINTER PAST END? 
AG ons (4 9€ 38 1414 MOVAB TTYSL-TA-DATA(R4S, TTY$C_ TR_GET(R4S; RESET POINTER 
; 4 1416 : SKIP TESTS FOR SECOND CONTROL SEQUENCE SET IF PASSALL 
554 1418 * 
54 78 AS DO 0554 1219 60S: HOVE UCBSL_SVAPTE(RS) ,R& SETUP R4 TO CONTAIN THE ADDRESS OF THE 
558 (14 p IF ~STA TE <PASALL, NOFLTR> TAB_ PASSALL IN PASSALL THEN PASS A 
3 F 14 IF~STATE QUOTING, TAB_Q te. et ee WE QUOTING 
00000000'EF43 9A 0563 14 3 67$: mo 078 BL TTY$A CCLISTER ; : GET THE TOKEN 
Ads 12 $3 1? ? TAB_ ESITINGCHAR - ; SPECAIL ACTION THEN HANDLE SPECAILY 
36D 14 5 : INSERT THE CHARACTER 
36D 16 $ 1518: cdf gState <ESC>,TAB_ESCINPROG; IF IN AN ESCAPE SEQUENCE THEN HANDLE AS SUCH 
51 58 AS 00 0571 14 § 133§° “"MOVL  UCBSL_ 1RP(RS) R1 GET THE IRP ADDRESS 
AG 20 Al 08 EO 575 1430 BS osvC Ow. [RPS Func (R1) TAB_CVTLOW: BR IF CONVERT LOWER TO UPPER 
3D 1C B4 : 57A 1431 155$ BS Ory sit Ss TERM RR CRG) TERMFOUND: IS THIS CHARACTER A TERMINATOR 
51 39 Aa ¢ S7F 14 ‘ MOVZWL TTYS$W_RB_CINOFF(R4),R1 ; GET THE OFFSET INTO THE BUFFER 
AG) 6BS O0583 14 TSTW  TTYSW"RB-LINREST(R4S VE TO OPEN UF FE 
2 1 5 : 1434 BNEQ TAB_OPEN NO THEN HANDL R 
2C B441_ 53 90 0588 1435 159$: MOVB R3,STTY$L_RB_LIN(R4)CR1]: INSERT CHARACTER 
AA 6 B6CO0SBD O14 $ INCW © TTY$W_RB_TXTOFF(R4) t ADJUST POINTER 
OAS Bb 39 14 INCW  TTYSWIRBLINOFF (R4) + ADD TO COUNT 
39 1638 | CHECK FOR FULL BUFFER 
39 1441 buecK_ BUFFER: 
40 a4 3C AG BI 059 1468 21 CMPW = TTYSW_RB_TXTOFF (RG) ,TTYSW_RBTXTSIZ(R4); TEST pOUFFER FULL 
13. «1€ 398 1445 BGEQU 2128 ~ : "BUFFER FULL THEN END 
398 1465 ? ECHO THE CHARACTER IF NECESSARY 
9A 1209 5308: Ff STATE <NOECHO,ESC,EDITREAD>,250$; IF NOECHO OR ESC THEN BRANCH 
FBDD 3! A7 1448 BRO FORMAT_CHAR ; 
FASB) 31 AA 144 2608: BRW GE TNEXTCHAR + VECTOR TO TRANSFER MORE CHARACTERS 
8 14 ? BUFFER OVERFLOWED THEN TERMINATE 
51 AS 00 O5aD 14 4 5128: MOVE UCBSL_ IRPCRS) R1 : GET THE IRP ADDRESS 
Al B4 ay 1454 CLRW =—sIRPSLMEDIACRI) + SET NO 
20 Al «1000 BF «= AAs«0584 1455 BICW 108K TRRNOE CHO, IRPSW_ FUNC ERI): FORCE POSSIBLE ECHO 
18 14 : BRB 221$ E 
i 
a ite 
1460 
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- Terminal driver character output routi 16-SEP 1: AX/VMS Macro V04-00 Pa 4 
MOVEREADATA = MOVE CHARACTER FROM TYPEAH g- SEF} $e 8: 4; 3 TTDRVR.SRCJTTYCHARO.MAR; 1 ” (27) 
9 BC 14 MOVL neti RP(RS),R1 ; GET THE . DRESS 
8 (6 (14 MOVW Pa Theda) + SAVE NCHARAG ER FOR STATUS 
6 05¢4 14 CW ity BIA+2(R1) ; SET 1 AAINA 12 
(7 14 MOVZWL ive Wore TX TOFF (RG) R1 _; GET THE Ore set TO THE LAST CHARACTER 
cB 1465 CR RB TXT (RG Ast CR1]; PUT THE LAST CHARACTER AWAY 
D DO 14 : vessL 1RPTR J,R1 : GET THE InP ADDRE 8 “- 
304 14 3318 Sete STAT [> : SET END N 
9 8 1488 5$ #108 V_TRMNOE CHO, IRPSW_FUN UAC ERT) oeOSe BAN fr NOT TERM NOECHO 
E 14 3 
; rez ; TEST FOR ECHO NEEDS 
- $60 1478 250S: If STATE ct eNtobrnc Oth jF8e> 240$ =; CONTINUE IF ESCAPE 
ef 1475 BSL “BEVDEBNDZ (AS), 240$ ; NO FORMATTING IF NOT LOCAL ECHO 
D ae 1476 MOVL UeBst (RS) ,R : GET THE IRP ADDRESS 
£0 O5F6 147 BBS #l0$v~ NOE CHO 
5FB 1478 IRPSW crUNE CRED, 2408 : OR READ NOECHO 
31 O5FB 147 BRW FORMAT_LOC : OTHERWISE, LOCAL ECHO TERMINAL, FORMAT 
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3¢ 68 AS O01 
0080 C5 cers 


7C AS = =022C 
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.SBTTL MOVEREADATA SERVICE ROUTINES 
: TYPEAHEAD BUFFER EXHAUSTED 


v1 (38) 


25s: IF _NOT_STATE NOECHO,21$ y NO ECHO READ NECESSARY TO OPTOMIZE 
ser TSTATE PRE : SET THE BYPASS TYPEAHED BUFFER STATE 
: CONTINUE IN THE NORMAL CODE PATH 
50S:  BRW XON : CONTINUE 
BUF EMPTY: 
CLRW _—s TTY$W_TA_INAHD(R4) : FIX THE COUNT TO REFLECT 0 
IF _STA ate <PASALL> sNOF LTR>, 25$ 3 
21s IFTSTATE <TYPFUL>,20 + BR IF TYPEAHEAD FULL 
; THE TYPEAHEAD BUFFER HAS NOW BEEN EMPTIED INTO THE SYSTEM BUFFER. 
: IF PROCESSING A READ WITH ZERO SECOND TIMEOUT, RETURN THE DATA 
: TO THE USER IMMEDIATELY. 
BBC #UCBSV_TT_TIMO,UCB$W_DEVSTS(R5) DISMISS; BR IF NOT READ WITH TIMEOUT 
CMPL - TTYSA_MAXTIME,UCBSL_TT =RDUE (RS); ZERO SECOND TIMEOUT? 
BNEQ DISMISS BR IF NOT. 
MOVW 8s #SS$ TIMEOUT, UCBSW BOF F (AS); SET TIMEOUT COMPLETION STATUS. 
BSBW TTYSREADONE COMPLETE REQUEST. 


at 
— 


Ss 


K 7 
- Terminal driver character 5° tput routi 16-SEP-1984 1:31 VAX/VMS Macro v04-00 Page 4 
MOVEREADATA SERVICE ROUTINES ore ee 188d Oeitoto EAAOMWE. aes eryonaso.mans1 29° °$8, 

1507 ;+¢ 
} 3; XON = SEND XON 
: FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS USED TO SEND AN XON 

¢ 1 > INPUTS: 

4 1 1 : Re = ADDRESS OF THE UNIT STATE VECTOR 
; R5 = UCB ADDRESS 
; : OUTPUTS: 

632 1501 : a = ADDRESS OF THE UNIT STATE VECTOR 

6 1 § : R3 = XON 

6 3: R5 = UCB ADDRESS 

6 13 5 KON: : SEND AN XON 

632 1 4 CLR_STATE <TYPFUL> 

oee 1 IF_NOT_STATE <OVRFLO>,10$ 3; SKIP IF NO OVERFLOW ERROR 

63A 15 § CLR_STATE <OVRFLO> RESET CONDITION 

7C AS 0838 off. 80 63E 1530 MOVO = #SS$ DATAQVERUN, JCBSW _BOFF (RS); COMPLETE READ IN ERROR 
0 23 13 1 BSBW TTYSREADO 
F9B6" 30 ee 15 § 10$: BSBW  TTY$XON 
F9B8 «31 «(064A 1534 BRW GETNEXTCHAR 


rmina 
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04D 


S= 


i ; CONVERT CHARACTER TO UPPER CASE 


rt ivtiow: ere. #1000785 CH_LOWER,W*TTYSA_ TYPECR3) 154$; BR IF NOT LOWER CHARACTER 


1 BIC : CONVERT TO UPPER CASE 
1542 154$: BRW 


a 7 
Vous000" MOVEREADATA SERVICE ROUTINES eee outt  BrSEE mT SRe Ber EaiTS UPHONUR.SRESP VenaRo.mans1 29 (43 
; ‘3 } DISMISS INTERRUPT 
A 1 23 BISMISS 
0108 C5 3% A 1 48 CLRB = UCB$B_TT_OUTYPE(RS) ; SET NO RETURN CHARACTER. 
5 Q65€ 154 RSB ; and dismiss the interupt 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 7:21:31 \VAX/VMS Macro v04-00 Page 
v04=000 MOVEREADATA SERVICE ROUTINES : g7 SEE] 7 at ELS TTDRVR.SRCITTYCHARO.MAR; 1 . (3) 
6E5 1608 910$: IF _NOT_STATE <EDITING>,199$ ; AND WE ARE NOT EDITING DO TH 
03 3A Al 8} oe 1888 CMPW InP aL ° MEDIA+2(R1),#3  : IS THE SEQUENCE LONGER THAN Bh CHARACTERS 
36 4 06€D 1610 BGTR 90$ : YES THEN DO A MATCH ON IT 
51 9A O6EF 161 MOVZBL #TTYSK_ET_BACK_CHAR,R1 ; SETUP FOR BACK CHARCTER 
53 44 BF OO91s«6F 161¢ CMPB so #*A/D/7R37 ; I$ IT A BACK CHARACTER 
be 13 06F 161 BEQL 930% YES THEN DISPATCH 
51 6 9A O6FB 1614 MOVZBL #TTYS$K_ET_FORWARD_CHAR, Ri; GO FOWARD A CHARACTER 
53 43 BF O91 s«O6FB 1615 CMPB so #*A/C/7R37 :°1S IT A FORWARD 
(9 «13 ai 1616 BEQL 930$ : HANDLE IT 
51 OB 9A 1 161 MOVZBL #TTYSK_ET_RECALL,R1 : RECALL A COMMAND 
53° 41 er 9 f é 1618 CHPB geALAT RS : IS THIS RECALL? 
06 20 A4 8 EO O70A 1620 BBS #TRMSV_TM_NORECALL, TTYSL_RB MOD(R4) ,1908; CHECK NORECALL 
3 462 8F 91 O70F 1621 CMPB Os #*A/B/7R3~ 7 IS THIS A DOWN ARR 
BS 13 Ori3 16 ¢ BEQL 930$ : YES THEN DROP IT 
0715 1624 ; DON'T TERMINATE ON THIS SEQUENCE UNLESS HE REALY WANTS IT 
O79 16 3 : (THE MODE OF THE READ IS ESCAPE 
0715 1627 190$: IF_STATE ESCAPE,199$ : IF THIS IS AN ESCAPE SEQUENCE READ THEN 
0719 1628 970$: : TERMINATE ON ESCAPE SEQUENCES. 
51 58 AS DO 0719 1629 MOVL UCBSL_IRP(RS),R1 : MAKE SURE WE HAVE THE IRP ADDRESS 
38 Al «604 4071D ~=«(1630 CLRL  —IRPS$L-MEDIA(R1) : NO THEN CLEAN THE SEQUENCE OFF THE TERMINA 
FBE2 31 07 0 1631 BRW GETNERTCHAR : AND GET THE NEXT CHARACTER 
07 1638 : NORMAL ESCAPE SEQUENCE TERMINATION 
gree tee 
53 30 91 0723 1636 198$: CMPB  #*A/0/,R3 : IS THIS A NUMBER 
10 14 0726 1637 BGTR : NO THEN EXIT 
53 39 91 0728 1638 CMPB ss #*A/9/,R3 i 
0B 19 0728 1639 BLSS ; 
48 AG OA Ad 072D 1640 MULW #10, TTYSW_RB_ESCTKN(R4) ; SHIFT THE NUMBER OVER 
53 30 «A2 0731 1641 SUBW Ss #*A/0 : SUBTRACT OUT 0 
48 AG =653)—AO (0784 1648 ADDW R3,TTY$W_RB_ESCTKN(R4) ADD IT IN 
FE5B 4«-31.«0738 «1643 900$: BRW 216$ 
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v04=000 MOVEREADATA SERVICE ROUTINES ~ g SEP-1984 4 88: $3349 YOtOR TDRVR.SRCITTYCHARO.MAR:1 (day 
73B 1645 ; 
f B 46 ; SEE IF DELETE SEQUENCE SHOULD BE TERMINATED 
7F 8F 53 4 t : 48 INDELST: + CPB R3, #TTYSC_DELETE : 1s E35 th"¢5 "on A DELETE? 
0c AS «BS O0741 0 INCW _TTYS$W_TA_INAHD(R4) : NO THEN PUT THE CHARACTER BACK 
74 16 CLR_STATE DEL™ : TERMINATE DELETE SEQUENCE 
i 1838 : TERMINATE DELETE SEQUENCE IF NOT IN NO=ECHO 
53 5C 9A 0748 1655 ° MOVZBL #*A/\/,R3 : SET OUTPUT CHARACTER 
FA38 31 O7ac 1656 BRW FORMAT. CHAR : FORMAT THE CHARACTER 
FDF6 31 O74F 1658 50$: BRW 408 
0752 1659 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 02: X/VMS Macro V04-00 Page | TY 
v04=000 MOVEREADATA SERVICE ROUTINES g- SEF} 3b 82 eh? 9 Ys RVR. SREITTYCHARO. MAR; 1 (38, vo 
752 1 
755 1 qi : OPEN THE BUFFER | 
f ! ? ; OR JUST OVERSTRIKE 
f 1963 ¢ bpEN: 
, 1882 SPREAD THE BUFFER TO PUT THIS CHARCTER IN PLACE 
3 “8 f 1889 2 PUSHR #*M<RO,R1,R2,R3,R4,R5> i SAVE, THE REGISTERS OVER THE MOVE 
O7F9 8 , $ 187 BSBW  CHAR_SIZE : GET THE CHARACTER SIZE 
, : 1e78 ; IF NOT AT THE END OF LINE THEN DON'T LET THE USER WRAP THE LINE 
759 1675 © F_STATE <WRAP TABRIGHT? 194$ 
38 AG) 6«6OCOOFC CS) S53 3 1878 169$: ADB R3,UCB$W T CURSORS) TTY$W_RB tp2cUR(RS): AND ADD IT INTO THE CURR 
AA 3C 076A 167 ROVEaL ett RB -l InoeE ),R1_; GET TRE LOCATION OF THE LAST CHARACTER 
146 AG 20 B441 98 r6E 1678 MOVAB artysC. RB LTINCRGD ERED TTYSL RB ECHSTRCRADs GET THE ADDRESS 
44 04 01 BO 0774 167 MOVW  #TTYSK7ER™ GLRECHO, sTTy$w -RB_RODE(R4) ; AND SETUP mt HE ECHO MODE 
778 1680 IF_STATE NOECHO, 193$ ; BON'T ECHO IF NOT ECHO te 
77C 1681 SET STATE EDITREAD ; AND SEF THE EDIT READ sth TE 
780 16 é 193$: IF NOT_STATE OVERSTRIKE,158$ | : NOT IN OVERSTRIKE TH HEN HANDLE NORMALY 
09 OC AE 91 0784 16 CMPB 12¢SP) ,#TTYSC_TAB : WAS THIS CHARACTER A TAB? 
20 «13 i 16 4 BEQL  158$ : YES THEN INSERT IT. 
AG B7 O78A 16 DECW  TTY$W_RB_LINREST(R4)  ; IN OVERSTRIKE WE DELETE WHILE TYPING 
Hd AG 8) He it DECW § TTYSWTRB-TXTOFF (R4) : FAKE OUT THE REST OF THE LOGIC 
01 53 D1 079 1869 CMPL ~=s R23, #1 ; Is THIS A SHORT ECHOING CHARACTER 
oe | 0788 1690 BNEQ 168$ THEN OUTPUT THE WHOLE THING 
09 1484 91 0795 1691 CMPB = @TTYSL_RB_ECHSTR(R4), witise. TAB; ARE WE ON TOP OF A TAB? 
0c 13 0799 1698 BEQL 157$ ; YES THEN HANDLE SPECAILLY 
44 AG B& 0798 169 CLRW © TTY$W_RB_MODE(R4) ; CLEAN OUT THE MODE FOR LATER 
14 AG D4 O79E 1694 CLRL  _‘TTY$L"RB7ECHSTR(R4) : MAKE SURE THE STRING IS ZERO 
7A1 1695 CLR_STATE EDITREAD : AND DON'T DO THE EDITREAD ECHO (ONLY 
7A5 169 $ ; ONE CHARACTER NO NEED) 
ee Mn 1837 157$ orev } oF. TTYS$W_RB_ CPZCUR(RSS , ase aie Lie THE te 
Some t Wie ie er ee Hy AEE "Blase IT EAPMOS To zeno 
32 Hi 86 ri 17 1 INCU TTY$¥_RB_LINREST (RG) : ELSE Just INSERT THE CHARACTER 
: a Be fy 7 158$: INCL . Pee F INCREMENT THE REGISTER BY 1 TO GET THE 
B : 
7 MOVC3 TTYSW_RB_LINREST(R4),- : AND MOVE THE CHARACTERS OVER 
zones TE BIR TE asa: nome, HAS MCLSaL EGG” MMOLE res 
0B AG 01 32 Ab i 703 7 : ; ADDBS TTS és. (Takest ones: rf) sATV88 RB -ECHLEN(R4) :AND LENGTH OF STRING TO 
FDBC ; 
: TTY$W_RB_LINOFF(R4) : LOOK FROM THIS CHARACTER ON 
% a8 i rer in icles pseu Vipriens Rat : MAKE SURE THE TAB AFTER THIS POSITION 
W TT ySw_ RB_LINOFF (R4) : KEEP LINOFF THE SAME AS WE STARTED WITH 
oe wR gee es 1 Wot 
2p? 1718 : ONCE WRAP IS DETERMINED THEN CHECK SPECIFICALLY IF THIS CHARACTER IS VALID 
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IF _NOT_STATE OVERSTRIKE,234$ 
CMPW ~ R3.41 

BNEQ 348 

CMPB (SP) ,#TTYSC_TAB 
BNEQ 2 


POPR #°M<RO,R1,R2,R3,R4,R5> 
BRW GE TNEXTCHAR 
BRW 169$ 
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h:#} ET TORVR. SRETTTYCHARO. MAR: 1 . (d) vo 

ON'T EVER INSERT AFTER THE WRAP 

IS THIS A SINGLE CHARACTER EXPANSION 

NO THEN DON'T INSERT IT 

WAS THIS CHARACTER A TAB? 

THEN OVERSTRIKE IT 
RESTORE THE REGISTERS 
AND GET THE NEXT CHARACTER 


04-00 
CHARO.MAR; 


acro_V 
RCJTTY 


M 
-S 
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F 
ster output routi 19 
INES 


; QUOTING CHARACTER DETECTED 


EDITING IS SET THEN 
CAPE THEN DON'T TURN 
F IT NOT EDITING THEN SET 


IF 
F ES 


NG,4(R2) ,65$; 
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Macro V04 
6:19 LCTTDRVR.SRCITTYCHARO.MAR; 1 7) 


i ane -SBTTL Specail input character dispatcher 
1738 ; 
39 | ; SERVICE ROUTINES TO MOVE READATA 
ie ; SPECAIL EDITING CHARACTER HANDELING 
1748 EDITINGCHAR: 
03 1744 IF STATE <EDITING> 70$ : EDITING THEN NO RANGE CHECK NECESSARY 
04 51 D1 0807 1745 CMPL  R1,#TTYSK_EDITNORMAL : NOT EDITING THEN ANYTHING ADVANCED 
27. «14 A 1746 BGTR to5$. : 1S BAD 
8 C 1747 70$: CASE  R1,TYPE=L,<- 
¢ 1748 151$,- : IS NORMAL CHARACTER (SHOULD NEVER BE USED) 
g9¢ 174 CTRLU,- : 1S CONTRO 
¢ 1730 CTRLR,- : INDICATES CON ROL=R 
80C 1751 DELCHAR,= : INDICATES DELETE CHARCTER 
80C 1236 ESCAPE CHAR,- : INDICATES ESCAPE ASHARCTER 
980¢ 175 BACK_CRAR,- : MOVE BACK ONE CHARACTER 
80C 1754 FORWARD_CHAR,=- 3; MOVE FOWARD ONE CHARACTER 
080c 1755 MOVE_EOC,- ; MOVE TO THE END OF LIN 
080C 1756 MOVE -BOL,- : MOVE TO BEGINNING OF LINE 
980¢ 1757 DELETE WORD,- + DELETE WORD TO THE LEFT 
80C 1758 GUOTING.= 3 QUOTE CHARA TER 
080C 1759 RECAL : RECALL THE LAST COMMAND 
O80¢ 1760 TOGGEL Iwsov- ; TOGGEL INSERT/OVERS TRIKE MODE 
08 A 176¢ IF_STATE TERMNORM, 162$ : TERMINATE ON USUAL 
O82E 176 : CHARACTER 
OE 51 O01 08 E 1764 CMPL «RI, ATTYSK_ET_TERMINATE ; WAS THIS A REAL TERMINATOR CHARACTER 
1E 12 1765 BNEQ  165$ 3 NO THEN DON'T LET IT T 
0833 1766 162$: IF STAT <ESC>, 166$ F IN AN ESCAPE SEQUENCE THEN eT IT THRU 
OF 1¢ B4 53 £0 08 176? BBs R5.aTTvS1 AB. FERN (RG), 1648; 1s THIS CHARACTER A TERMINA 
OD 33 1 C 1768 CMPB #TTYSC-CR : WE A RE P REPARED TO HANDLE —" 
1 13 F 1769 BEQL 8006S : SO LET IT THRU ANY 
41 1770 IF STATE <QUOTING,EDITING>,165$ : NO THEN DROP” Yr IF WE ARE EDITING 
FD22 31. «0848 «1771 «167$: «BRO 151$ 
EDGE 1 0848 12% 164$:  BRW TERMF QUND : TERMINATOR DETECTED 
FEOE 1 4f 177 1668: BRW ESCINP ROG : ESCAPE SEQUENCE INPROGRESS 
F 1 3 1774 165$: BRW GETNEXT : GET THE NEXT 
32 AG 83 4 1775 800$: TSTw  TTY$w XRS HATNREST(R4) : ARE WE AT THE END OF THE LINE 
Pe 57 1276 BEQL 167$ ~ : YES THEN CR IS LEGAL 
F7A9 31 59 27 BRW GETNEXTCHAR 
2 1338 disable lsb 
€ 1780 
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ah 3¢ 
¢ } ; RECALLING 
. 7 : DESCRIPTION: 
¢ 4 $ : THIS STATE IS USED WHEN THE LAST COMMAND TYPED IS REQUESTED. 
¢ 1 : THIS ROUTIN WILL REMOVE CHARACTERS FROM THE RECALL BUFFER TH 
¢ 4 ; ALLOW THE NORMAL INSERT CHARACTER LOGIC TAKE AFFECT. THE CHARACTERS 
: 1 ; IN THE RECALL BUFFER ARE PROCESSED AS IF THEY WERE NO FORMAT. 
¢ Ie : INPUTS: 
¢ : RS = UCB ADDRESS 
é 5 : OUTPUTS: 
¢ 4 5; SEE MOVEREADATA 
ee. $ RECALLING: 
51 O0E4 cs D 1798 MOVL ycBst TT_TYPAHD(R5),R1 ; GET THE ADDRESS OF THE TYPEAHEAD BUFFER 
2 1 61 179 BEQL ; NONE THEN LET MOVEREADATA HANDLE IT 
4 78 A5 63 1800 OVL  UCBSL_SVAPTE(RS),R ; SETUP THE READ PACKET ADDRE 
3 OFA C 0867 1801 MOVZWL TTYSW-TA “RCLOFE (AT) R5. : GET THE ADDRESS OF THE NEXT CARACTER 
53 18 Al4 A 1 ; MOVZBL TTYSA~ <TAZRC R1)CR34,R3 ; GET THE CHARACTER 
9 Al B6 1 9 INCW = TTYSWITA~ BELO OFF (R1) MOVE ON TO THE NEXT CHARACTER 
14 Al —E Al 861 73 1804 CMPW 30s TTYSWITA TRCLOFFCR1) ,TTYSO_ TA_RCLSIZ(R1); ARE WE FINISH 
07 «+18 78 1805 BGEQ 5$ “YES THEN TURN ofr RECALL AND CONTINUE 
40 a4 «(OE Al”—séiB»d 7A 1 96 CMPW 38s TTYSW_TA ARCLOFF (RL) ,TTYS_ RB_TXTSIZ(R4); ARE WE GOING TO OVERFLOW 
04 19 O87F 180 BLSS 108 THE USERS BUFFER 
81 1 8 5$: CLR_STATE RECALL ; THEN MAKE THIS THE LAST TIME 
FCE9 31 5 1 10$: BRW INSERT CHAR : He INSERT THE CHARACTER 
FC9B 1 0888 1810 20$: BRW MOVEREADATA : ABORT EXIT 
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Post typeahead character er output rou nes Het 7 8e: 4; Ht TIOR VR. SRCITTYCHARO.MAR; 1 * (33) 
1 i ae -SBTTL Post typeahead character action routines 
; "BACK CHAR 


$W_RB_CPZORG(R4) 


PUD Oo —-@OW—-m 
USm Wes reousunn 


w3 ORB ite 

IF STATE 3 UCBs 

BRO UPDATE OC RSon 

$: CLRW 
$: BRW 


SSSSSSSSSoco ole 


5 

: 

pe 

1  BSBW. CHAR 
§ 

3 

; 


Cooooo 
c@ococD 
aor 


“ 


TTY$W_RB_LINOFF (R4) : 
DROP : 


1 
1 
1 
1 
1 
1 
1 TTY : 
Bseu ZERO. CPZOR 
108: DECW Ty30 8 Ot TNOFF CRG) + BAC 
BLSS os ; ATT 
TY o 
TTY ; 
art ; 
ait ; 
g0s : 
T : 
1 


; START AT ZERO? 
; YES THEN NO SPECAIL ACTION 


NO THEN MAKE SURE WE DO 
BACKUP a CMARACTER 
ND THEN yf ALLOW IT 


: UPDATE A REST POINTER 


SET TO THE CHARACTER 
RCTER 
eat aes 


I 
OF THE CHARACTER 
4); UPDATE THE CURSOR POSITI 


; SET T THE CURSOR TO IT'S NEW LOCATION 


pot THE POINTER 
D DROP THE CHARACTER 
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v04-000 Post typeahead character action routt nes 33 P=] 138 re 14; 3 TTDORVR.SRCITTYCHARO.MAR; 1 = (40) 


f } ; $ enable Lsb 
c 4 : CONTROL R PROCESSING 
C8 1843 CTRLR: IF STATE. ¢ <ESC>, 1508 ; NO ACTION IF ESCAPE OR NO ECHO 
cc 1 a4 IF7N NOECHO, 100$ + BRANCH IF ECHO 
09 E1 0800 184 Hed “his LOCALECHO, = 
2D 48 A p 46 C BEVDEPND2 (AS), 150$; BRANCH IF NOT LOCAL ECHO 
54 O000°'CF 9 D5 14 48 1008: MOVAB W*TTYSA_CTRLR,R4 ; ADDRESS MULTIECHO STRING 
E DA 1849 110$: BBC #TT2$V_EDITIN 
1C 48 A doc 1 UCB L BEVDEPNDS (RS) 130$ 8,3 EN .YSE NORMAL ECHO STRING 
174445 OC €1 oF BBC #TT$V~SCOP UCBSt DEVDEPEND«Rs) | is BON renmtia 
51 78 AS DO OBEG 185 Vi UCBSL SVAPTE (RS) eer rie "PACT A DRESS 
3A Al 2B £8 1854 TSTW © TTY$W7 FoReckt) + WERE WE AT THE FIRST COLUMN WHEN 
04 12 O8€B 1855 NEQ 1208 ~ ; WE E TARTED TH EA AD 
ED 1 26 SET_STATE <sxl renee > ; NO LINEFEEDS FTER <CR> 
18 E1 O8F1 1857 1208: BBC #TT2$ : IS IT AN ANSI. 
05 48 A F3 1 38 UCBSL VBEVBEPNDSRS) ,1 120$: NO THEN USE NOR RAL ECHO STRING 
54 O0000'CF 9€ 0 Fé 39 cons MOVAB WTTYSA. ANSI_DEOL.RS : YES THEN WE CAN USE CRT MODE 
Sere 1861 " SET_STATE <EDITREAD> : SET CONTROL R STA 
O75E 31 OBFF 186@ BRW”  § STRTMULTI : START MULTIPLE ouTpUT SEQUENCE 
FC21.— 31 $305 1864 150$:  BRW MOVEREADATA 
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TTYCHARO - Terminal dri haract i 16-SEP=1 AX/VMS M v04 p 5 T) 
erminal driver character — r out 3 ~~ 1384 se $j: | cro -00 age 5 


v04-000 Post typeahead character action routt nes TTDRVR. eae REIT TYCHARO.MAR; 1 (41) ve 
1 ; 
$ ; CONTROL U PROCESSING 
0239 30 1869 10$:  BSBW _ DELES ape ; DELETE THE ESCAPE SEQUENCE 
908 1870 CTRLU: IF_STATE ESC .10 ; IF IN ESCAPE SEQUENCE THEN DELETE ESCAPE 
30 A4 8 90C 187 TST I ysu "8 LINOFF (R4) ; ANY DATA TO CONTROL- 
6 3 F 187 Beat 0$ ; NO THEN DON'T DO THE UUORK 
3C AG 30 AG OA 1 187 SUBW Ss TTYS$W_RB_ INOEF (RG), TTYSW_RB TXTOFE CRG) CLEAN OUT THE TEXT OFFSETO 
a 9 318 1874 CLRB =: TTY$B"RB_ECHLEN(R4) ; CLEAN THE EXTR 
AS B4 0919 1875 CLRW TVSU=RB~CBZCUR (RA) ; mOve™ 10" THE BEGINNING OF THE LINE 
A AG 83 91C 1 id: TSTW  TTYSWIRB-CPZORG(R4) ; WAS THIS AT THE RIG 
04 3 F 187 BNEQ les NO THEN SE, THE OL MME THOD 
44 Ad 6 1 28 MOVZBW #ITYSK_ER_CLRREST, TTYSW_RB_ MODE (R4 WHEN NOT DOING ANYTHING EL 
32 A : 925 1879 128:  TSTW  TTy$w_RB_CINREST(A4) ; TS THERE A Rest OF THE LINE 
¢6 928 1 9 BEQL «=«_:«113$ ; NO THEN HANDLE NOR 
7 92a 1 PUSHR #*"M<RO,R1,R2,R3,R4,R5> ; SAVE THE REGISTERS 
51 39 Mm 3 9c 1 : MOVZWL TTYSW_RB_CINOFF(R4S R1__: GET tmeste OF CHARACTERS 
2¢ B4 «62 B441 32 AG 930 1 MOVCS TTYSW"RB LINREST (R45 ,8 aTTYSL RB inthe) RI atest RB_LIN(R4); 
3F §6BA «(0938 «(1884 POPR #*M<RO,RT,R2,R3,R4,R5> ; AND RES TORE THE REGISTERS ~ 
3A AS) «BS COOSA «(1885 TSTw  TTYSW_RB_CPZORG(R4S : WAS THIS AT I H 
18 12 093D 1 6 BNEQ 148 NO THEN USE THE OLD METHOD 
4406 01 98 O93F 1 MOVZBW #TTYSK_ER_CLRECHO, TTYSW_RB MODE (RG); SETUP THE NEW ECHO MODE 
14 AG CAS D0 ot 1888 VL TTYSL_RB_CIN(R4), TTYSL_RB ECHSTR(RG) THE LOCATION OF THE FIRST CHAR 
0B A4 ; AS 690 09468 1889 VB  TTYSWIRB-LINREST(R4) TTY $6 RB_ECHLEN(R4); AND THE LENGTH 
AS B4 0940 1890 CLRW = TTYS$W7RB-CPZCUR(R4) IND“GO ALL. THE WAY. TO. THE BEGINNING 
64 2C Ad 01 0950 1891 138: CMPL TTYSLRBTLIN(R4), TTYSL_ Ré TXT(R4); ARE WE ON THE FIRST LINE 
4 12 0954 1 36 BNEQU 148 ONTINUE AS USUAL 
44 a6 07 9B 0956 189 MOVZ7BW #TTYSK_ER_PRMECHO, TTYSW_ Re MODE(R4); ECHO THE PROMPT TOO 
30 Ad B4 099A 94 14$:  CLRW  TTY$W_RB_CINOFF(R4) ; Now ZERO tHE LINE OFFFSET 
95D 1 % IF STATE NOECHO,15$ ; BRANCH IF ECHO 
54 0000'CF 9 961 189 MOVAB W*TTYSA_CTRLU,R4 ; ADDRESS MULTIECHO STRING 
FF71 3 966 38 BRW 1108 ; CONTINUE 
FBBA 31 0969 1900 15$: BRW MOVEREADAT ; 
tenes ah 130 55$: CLR. STATE, <URAP, CURSOR? 
FFGE 31 907 1908 57$: BRW CTRLR 
aA 19 5 ; NO DATA TO CONTROL-U 
32 a4 «BS 097A 1907 50$:  TSTw  TTYSW_RB_LINREST(R4) |; ANY DATA AFTER THIS POINT 
EA 97D 19 8 BNEQ : YES THEN Just RETURN 
3C A4 8 97F 19 TSTW §TTYS$W_RB_TXTOFF(R4) ; IS THERE ANY REASON TO DO THIS 
ES 9 2 19 : BEQL Ss ; NO THEN DON'T BOTHER 
3C Ad 984 191 DECW  TTYSW_RB_TXTOFF(R4) ; REMOVE THE LAST CHARACTER 
37 30 «0987 191 BSBW =s F:IND_BOL™ ; THEN FIND THE BEGINNING 
98A 191 : OF THE PREV LINE 
3C A4 3 98A 1914 TSTW = TTYS$W_RB_TXTOFF(R4) ; IS THERE ANY MORE DATA LEFT 
E8 3 D 1915 BEQL «=s«57$ : NO THEN JUST MAKE SURE THE PROMPT 
D8 48 AS. 18 €1 O98F 1919 BBC #TT2$V_ANSICRT UCBSL_DEVBEPNDS (RS) ,558; REECHO ON NON ANSI TERMINALS 
3A AG 8 4 1918 TSTW I1y W_RB_CPZORG(R4) ; WAS THIS AT THE RIGH HT 
D3 997 191 BNEQ 5$ : NO THEN USE THE OLD METHOD 
3C AG i Ad A 999 1387 SuBY TVS RB. ob IMBEE CRG} . TIVES RB_TXTOFF (R4); DELETE THE LINE 
64 2C Ae ODI Sai 1922 CMPL =‘ TTYSLTRB“LIN(R4) ,TTYSL_RB_TXT(R4); DOES A PROMPT NEED TO BE ECHOED 
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- Terminal driver character qutput 9 routi 1 “$ ath oe $i: 3} AX/VMS Macro V04-00 Pace if) 


Post ms 1 character action reutt nes TTDORVR.SRCITTYCHARO.MAR; 1 
98 2 AS 1 BNEQ 608 A rertt ECHO A PROMPT 
44 AG A? 4 poyiow ¢ @TTYSK_ER_P ane crety wan iat PODER): SET UP TO ECHO THE PROMPT 
OB A4 AB 1 cbt ity RB EC (Rs) OUTPUT 
Ms ! : SET_SVATE ED TRERD : TELL THE REST OF THE SYSTEM ABOUT THE PROM 
38 AG) «6B4 SOCO09Be2 = 3 60$: CLRW TTYSW_RB_CPZCUR(R4) 3; CLEAR THE CURSOR POSITION 
9B 1 SET_STATE SKIPCREF 3 SKIP THE FREE LINEFEED 
seteecanay a 98 12 0 ROVAB TTYSA_ANSI_UPCEL,R4 ; GET THE STRING. ADDRESS 
69D 9C 1931 BRw STRTMOLTI ~ 3; AND DELETE THI NE 
9¢C3 1932 disable lsb 
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v04-000 Post typeahead character ection reutt nes mets Be: 44) 13 TTDRVR.S REIT TTYCHARO.MAR; 1 — (25) ve 


:++ 
DELCHAR = DELETE CHARACTER ROUTINE 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE DELETES THE LAST T 
; THEN IT SETS UP THE PROPER ECHO 


; INPUTS: 
Re = ADDRESS OF TTY STATE VECTOR 
R5 = UCB ADDRESS 


YPED cer FROM THE READ BUFFER. 
SEQ THE DELETED CHARACTER. 


b 


93 1 - 
3 1 
9¢3 1 gi: 
3 1 
3 1 gi 
9¢3 19 
9(3 1940 
9(3 1941 
3 1 og | 
9C3 194 
9C3 1944 
9¢3 1945 : 
RE 
3¢ 1948 : OUTPUTS: 
9(3 1950 : R2 = ADDRESS OF TTY STATE VECTOR 
a 1951 3 = UCB ADDRESS 
9¢ 1338 ELCHAR: ; 
54 78 AS 00 o9¢ 1954 MOVL  UCBSL_SVAPTE(RS) ,R4 t ADDRESS READ BUFFER BLOCK 
a3t 1956 ; IF ESCAPE SEQUENCE IN PROGRESS THEN DELETE ENTIRE STRING 
09¢7 1958 ° IF_STATE ESC,25$ ; DELETE ESCAPE SEQUENCE 
30 a4) «= B?.s«C«09CB SO1959 DECW © TTY$W_RB_LINOFF(R4) + ANY DATA 
30 19 ce 1960 § 8$ ; IF EQL_ THEN NO 
51 30 A6 3C 0900 1961 MOVZWL TTY$W_RB_LINOFF(R4),R1 _: GET THE POINTER 
53 2¢ B441 9A 0904 196¢ MOVZBL ttvsc RE B_LINCRA) CRIT, R3; GET THE CHARACTER 
OD 91 0909 196 CMPB UT TYSC ; IS THIS CHARACTER A RETURN 
22 13 O9DC 1964 BEQL 8$ : YES THEN ADJUST THE LINE 
3c AG «6B? «O(OSDE «1965 DECW  TTY$W - TXTOPF (RG) ; ADJUST POINTER 
a Sid Ove] 1966 IF ANOT. STATE AOECHO,5 : BRANCH IF ECHO 
6F 48 AS te 1968 UCBSL VGEOEACECHO Ge 30$ ; BRANCH IF NOT LOCAL ECHO 
Sh 18h 
O9EA 1971 : TEST FOR SPECIAL DELETES 
09 53 #91 O9EA 1998 Ss: CMPB R3.ATTYSC_TAB ; TAB? 
0008 13 O9ED 197% BEQL Bs : IF NEQ THEN OUTPUT JUST THE CHARACTER 
65 44 a5 0C £0 O3Fe 1976 8$: BBS #TTSV_SCOPE ,UCBSL_DEVDEPEND (RS) .40$; BR IF SCOPE 
ODB C31 a 197 BRW 75$ ; BR IF NOT SCOPE 
0144 30 OFA 1998 25$:  BSBW DELESCAPE : DELETE ESCAPE SEQUENCE 
FB26 31 Ha 19 0 BRW MOVEREADATA : AND GO BACK TO WORK 
0 a6 Be OA Q 19 ‘ 28$:  CLRW TTY$W_RB_LINOFF(R4) ; MAKE THE COUNT ZERO 
2A4 BS OA03 19 TSTW © TTYSWIRBILINREST(R4) is there Tey aefunt left? 
51 12 OA ; 1984 QNEQ =: 30 : NO THEN JUST RETURN 
3c A4) «BS «C(OAOB «1985 TSTW ©‘ TTYSW_RB_TXTOFF(R4) ; NO LINE W APPED 
4¢ 613 «OAOB 19 6 BEQL 30S : IF THIS COUNT 1S. ze 
3c AG 4 AOD 19 DECW TTY$W_RB_TXTOFF(R4) ; REMOVE THE LAST CHARACTER 
OSAE 30 ag 19 ; BSBW = FIND_BOL™ : VES THEN CALCULATE. THE NEW BEGINNING 
3348 AS 18 €1 OA13 1990 BBC #TT2SV_ANSICRT,UCBSL_DEVBEPNDSINE) . 1208; REECHO ON NON ANSI TERMINAL 
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v04-000 Post typeahead character action routines moet rate REL TTDRVR.SRCITTYCHARO.MAR; 1 — 2h 
3A AG 83 Aig 199 TSTW Pt a RB_CPZORG(R4) 3; WAS THIS AT THE RIGHT 
AiB 199 BNEQ NO THEN USE i oe yt 
44 AG 9 AiD 199 MOVZBW #TTYSK ER. Funes TTY$wW is MODE (R4); aise’ THE 
AS 0 9 A21 1994 MOVB TTYSW_ Bg (RA) TTYSB_ RB_ECHLEN(R AND THE STRING TO OUTPUT 
14 AG C AG D A26 1995 MOVL TTYSL “RB. tne »TTYSL _RB- ECASTR(R4); AN 1 THE AD 
C D1 A2B 1338 CMPL TTYSL L-RB_ LEN tReS? *TTYSL— RB~ I XT(R4); Does A oe é NEED TO BE ECHOED 
12 OA2F 199 BNEQ 110$ THEN DON'T ECHO A PROMPT 
44 AG 7 98 “ 1 1338 MOVZBW #TTYSK_ER_PRMECHO, TTYSwW_ ae -MODE(R4); SET UP 10 ECHO THE PROMPT 
A 3 0 110$: SET_STATE <SKIPCRLF ,EDITREAD> 3; SKIP THE FREE LINEFEED 
38 AG 02 AE OA3D 1 MNEGW #2,TTY$W_RB 4 te taal 3; DON'T RESET CURSOR 
54 Q0000000'EF 3 wea § MOVAB TTYSA_ANSI _OPCE ; GET THE STRING ADDRESS 
0615 Ave 004 BRW STRTMOLTI ~ ; AND DELETE THIS LINE 
ASB 2005 1208: SET_STATE <EDITREAD> 3 eT ene THE LINE TO IT'S FULL VIGOR 
54 QO000000'EF 9E OA4F B98 MOVAB TTYSA_CTRLR,R4 ; GET A NEW LINE 
0607 +31 OA ait BR W STRTMOLTI i and return to the main Loop 
FACA 31 pA? 39? 30$: BRW MOVEREADATA ; VECTOR TO CONTINUE 
OASC tk 3 
Wet 4) ; DELETE A TAB ON A SCOPE 
OoFc cS) «BS «(OASC «(2014 408: TSTw UCBSW_TT_CURSOR(RS) ; Have we wrapped? 
47 13 OA6 015 BEQL 60$ : Branch te simulate CTRL-R, if yes. 
048A 30 bAdE 016 BSBW BACK_T GET THE TAB LENGTH 
42 AS OOFC C5 Bi OA6 017 CMPW ucBSsO_ " _CURSOR(RS), ucaéu DEVBUFSIZ(R5) ; At extreme right? 
11. #1F OA6B 2018 BLSSU _ 45$ ; Branch if within screen bounds. 
if 1A QA6D 2019 BGTRU 47$ ; Branch if beyond right edge. 
5 D6 OA6F 2020 INCL R3 ; Adjust number of backspaces for 
53 FFFFFFF8 8F CA OQA71 2021 BICL #*C7, R3 ; right-hand edge effects. 
41 13 OA78 20 § BEQL 66$ i no Ben gh just colons, at ogee. 
OOFC CS) «6B? «=C(OAZA 20 DECW UCBs. TT_CURSOR(R5) djust cursor value for one less B 
oopc ¢5 07 53 A3 OA7E 024 45$: SUBW3 3,47, UCB$W_TT (R5)  ewchs rai THE LENGTH CORRECT LY 
54 0001'CF 9E OAB4 2025 MOVAB us tTv8A _DELTRTTAB+1,R4; Get address backspaces string. 
45 11 ay 4 : § BRB Go output them. 
53 07 A2 OA8B 2028 47S: SUBW 7, R3 3; Adjust off-the-screen cursor 
OOFC CS) 6553) =6AO (OMB 8 9 ADDW RS UCBSW_TT_CURSOR(RS) 3 position for deleted tab. 
26 «11 OA93 0 BRB 66§ : Go do delete-at-edge. 
OA38 0 § 3 
A95 3 NORMAL CHARACTER DELETE 
OAs 0 ¢ iss 
FO 8F 93 0A95 6 "  - BITB —— #<TTYSM_CH_CTRL! TTYSM_CH_SPEC! TTYSM_CH_CTRL2!TTYSM_CH_CTRL3>,- 
0000'CF43 A98 W°TTYSA_TYPECR3] >; TEST FO 
14 12 Woe 8 BNEQ ~62$ 3; NON PRINTING CHARACTER 
32 44 AS OC E1 nt ret BBC #TTSV_SCOPE ,UCBSL_DEVDEPEND(R5),75$; BR IF NOT SCOPE 
AA rk: : IF THE CURSOR IS AT THE LEFT MARGIN AND DATA IS PRESENT, 
on rh ; FORCE A CONTROL R IN STEAD OF A BACKSPACE. 
OOFC CS) = «6©BS) SOOAA 45 59s: TSTW UCBSW_TT_CURSOR(R5) : CURSOR AT LEFT MARGIN? 
12 12 Raab rt BNEQ 66$ ; BR IF NORMAL BACKSPACE NEEDED 


TTYCHARO - Terminal driver character output vail 16-SEP-1984 t 93: ae 31 ya 
v04-000 Post typeahead character action routines 5-SEP-1984 TT 


ns i FORCE CONTROL R FOR RUBOUT RESPONSE 


00 Page 59 
HARO.MAR; 1 (43) 


> 


AA 50 40: 
54 78 AS D0 AAD 2051 MOVL §UCBSL_SVAPTE(RS) ,R4 : GET READ PACKET ADDRESS 
3C AG) BSS OOAA 3 TSTW © TTYSWIRB_TXTOFF (RG) ; DATA PRESENT? 
95 12 OAB 5 BNEQ 63$ : IF DATA PRESENT, ECHO IT IN NORMAL FASSION 
FA } 1 OAB 54 63s BRW MOVEREADATA : IF NO DATA THEN NO RESPONSE 
FF9 1 OAB 55 63$ BRW 120$ : DATA TO ECHO THEN ECHO 
0290 31 ABs 36 65$ BRW EDITREAD + START THE OUTP 
ABB 38 : NORMAL BACKSPACE RUBOUT RESPONSE 
53 209A Saba 60 6s: MOVZBL #TTYSC BLANK,R ASSUME SPACE IS FIRST CHARACTER 
42. a5 O0FC CS B81 OABE 2061 CMP ucBs $w_TT LAURSGR (RS) ,UCBSU_DEVBUFSIZ(R ); AND EXTREME RIGHT? 
74 =1€ Oacy 06 BGEQU 60$ :7IF YES THEN ONLY OUTPUT SPACE 
OAcé 064 : DELETE IS IN MID SCREEN 
54 OO00'CE 9E OAC 3066: MOVAB W*TTYS$A_SPACEBACK,R4 ADDRESS BACKSPACE STRING 
0Opc CS) = 84S sC9BSCACB C2067 MOVZBW (R4)+,UCBSW_TT SMULTILEN(RS) ; -AND THEN IT'S LENGTH 
53 08 OADO 2068 70$: # MOVZBL #TTY$C_BS,R3 ; START STRING WITH BACKSPACE 
15 11 OAD3 2069 BRB 90$ : START OUTPUT 
SD 04 A201 OADS 2070 75$:  BBSS #TTYS$V_ST_DEL,4(R2),95$ : IF NOT FIRST TIME THEN OUTPUT CHARACTER 
54 18 AS SE OADA 2071 MOVAB ucesu BuFGUO(RS) RS ,i ADDRESS STRING S 
oodc cS) —(01,Ss«wBOC#*OAD 076 MOVW #1 ,UCBSU_ TT OnUi TELENCR SETUP THE LENGTH OF THE MULTIECHO 
64 53 9B AES O73 MOVZBW RS CRG £ AND PUT THE CHARACTERS THERE 
DAE 073 3 : QUTPUT "'\"' TO START OR END DELETE SEQUENCE 
53 SC BF 9A OAE6 699 hos: #*ha : FOR FIRST TIME OUTPUT "'\"’ 
00dD8 cS 54~—Si«éiOO OAEA 078 90$: ROVE” Ra UcBEL TT_MULTI(RS) — ; ADDRESS STRING 
54 78 AS D0 OAF3 2080 MOVE  UCBSL_SVAPTE(RS) ,R4 : RESTORE THE READ PACKET ADDRESS 
32 AG «6©BS «(OAF?) «(2081 TSTW  TTYSWIRB_LINREST(R4) ; ANY CHARACTERS TO THE RIGHT 
38 1 me bas BEQL 95$ ; NO THEN HANDLE NORMALY 
3F BB OAFC 2084 PUSHR  #*M<RO,R1,R2,R3,R4,R5> =; SAVE NECESSARY STATE 
OAFE 085 IF STATE NOECHO,92$ 
OB02 2086 sets STATE <EDITREAD> ; SET THE EDIT ECHOING STATE 
51 AG 3C 0B06 2087 92s: OV7WL TTY$W_RB_LINOFF(R4),R1 : GET THE OFFSET TO THIS CHARACTER 
146 AG 2 B441 9E OBOA 2088 HOVAB @TTYSC_RB_LIN(R4) CRI TTYSL_RB_ECHSTR(RG): SET Tp THE ADDRESS TO STAR 
53 4 OA 0810 089 MOVZBL @TTYSL-RB-ECHSTR(R4) RS ; GET THE CHARACTER BACK 
44 a6 01 =«—-9B «(0814 «2090 MOVZBW #TTYSKE ERTCLRECHO, TTYSW_RB MODE(R4): CLEAR TO THE END OF LINE THEN E 
OB AG 3206 90 0818 091 MOVB TTS RB aCINREST(R4) , TTYSB RB OF CHLEN (RS), AND THE E NGTH 
51 1 ¢ 1D 38 MNEGL #1,R : Set Gp to find back kward $ 
04g b 08 9 09 BSBW Att 1Z2E FIND THE SIZE OF THIS CHARACTER 
3B aG 60OOFC CS_——siS3tsCOA 94 SUBW3 gy urasa. TT_CURSOR(RS), rts RB_ CEZeURIRE) SUBTRACT OUT THE L 
252 ke 28 On8D 509 RO Hee ae LIMMESTIRG SETUP"R2 AS 1 CHARACTER 
16 B4 14 B442 3 aTTYSC_RB_E neinenest, @TTYS$L_RB_ECHSTR(R4); COMPRESS THE STRING 
3F OBA 5 38 POPR omer 7R17RO,R3,R4,R5> : SAVE NECESSARY STATE 
F64D = 31 : i ‘f 958: BRW FORMAT_CHAR : START UP OUTPUT 
F 4 A 21 " -DECW  UCBSW_TT_CURSOR(RS) : ADJUST CURSOR 
- £ 653 1 E 21 4 BRwW OUTPUTANDWAIT : VECTOR FOR SPACE ONLY RESPONSE 


—----- - >} 
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B41 2105 
B41 21 $ 3 ++ 
+ 107 ; DELETE AN ESCAPE SEQUENCE IN PROGRESS 


B4 108 : 
B41 21 § ; THIS ROUTINE IS USED BY THE CONTROL U AND DELETE LOGIC TO RESET 
+h V9 ; AND DELETE THE ESCAPE SEQUENCE IN PROGRESS 
B41 13g BELESCAPE: ; DELETE CURRENT ESCAPE SEQUENCE 
51 BAS OD B41 11 MOVL  UCBSL_IRP(RS).R1 : GET ADDRESS OF PACKET. 
3c AG) «6O3A Al OAC 114 SUBW IRPSL-MEDIA+2(R1),TTYSW_RB_TXTOFF(R4); ADJUST TRANSFER SIZE FOR SEQU 
B Al D4 OB4A 2115 CLRL IRP$L~MEDIA(R1) : ESCAPE LENGTH 
BS 116 CLR_STATE <ESC,BADESC> : CLEAR ESCAPE 
05 0B5 117 10$: RSB + RETURN 


o,ronsclmo 


SSSSSSSSOa see a ree O Da aaaawe 


53 C 
E5 00000000'EF 


oo 

m 
“33 4 NwOPFrroraco = mo-[TOFCWD soso oLtaulmetn mo-—-OW Ww 
— 
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- Terminal driver character 
Post typeahead character act 


@ 
= 


NMNOM > SNL LEE 


DODO NIN SII NOAA 
GMO Mo > NU 


0897 


OBA 


eeecee 
ALLOY 


cc ee ee ee De ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ce ce ee ce ee ee ee ee ee ee ed ee ee 


SND DPD PDP AAD DTT PPL LEE 


MMMMMOGOVIANAAO 
MwM*NPO—TMOwoo 


SHOSHSO DOOD 


OO Gre« ee te te ee = 
mDot 

r-ovct 

mom 


WAWIAI WII WINIInonononororornononon 


WONAUES WN" OOOnouns 


ROOD NA NEW  O OD NAUE WN OOONAUS WN O 


Te : 
ryvsw_ RB_LINOFF(R4) ,R3 
Stata 
R3,TTYSA_PREF 


IN 
EF 
#°M<RO,R1,R2 
TTYSW_RB_LIN 


#1,R1 


N(R4) 
1X,6 
R4,R 
OFF ICR 


DBODDWVWDD 2 


~ 
@ 
kad 

Pe Se Be Se Be Oe Be Se Be Se Se ee 


Suy_RB_LINOFF (R4) 


Y$L_RB_LIN(R4) CRO} ARB; 
TTYSA_QORDTERM, 20$ 


—— 2@4#@DwWwDwzzD BDOWwWwAwWowW — 


B Ci NR 
GETNERTERAR 


eu he nope (Rad; OVER ie WORD THEN ECH 
),1T TYSB» RB WECHLEN(R4) ; AND THE LENGTH T 


week r cat 19= EP=1984 02:21:31 VAX/VMS Macro v04-00 TY 
on rout ines niet? Be Fa itg UT TORVR. SREITTYCHARO.MARS 1 i (8) v0 


ELETE WORD TO THE LEFT OF THE CURSOR 


ACT AS IF A DELETE WAS TYPED 
DROP THE CHARACTER 


GET yy OFFSET 
— ACT 1 


characters then handle suchl 
GET THE ee Nie AT THIS POINT 
THIS CHARACTER 
IS A PREFIX THEN DELETE ONLY IT 
GET = Cyeernt POSITION 
SAVE THE OFFSET 
WE ARE MOVING BACKWARDS 
CLEAN OUT THE CHARACTER pos | T jon COUNTER 
MOVE ONE og TO THE LEFT 


y 


SKIP_OVER Hg pb $s 

A gl LINOFF TO MAKE TAB DELETION WORK 
GET THE LENGTH OF 1S CHARACTER 

UPDATE CURSOR POSITION 

AND CONTINUE 


; are LINOFF TO MAKE TAB DELETION WORK 
; GET THE 1 ge BL OF THIS CHARACTER 

; UPDATE THE POSITION 

; KEEP eg NG 

UNTILL THE i* 

GET ANOTHER CHARCTER 

; KEEP MOVING UNTILL NOT A TERMINATOR 

GO re A_ CHARACTER 

ECHO THE RIGHT NUMBER OF BACKSPACES 

he fs Sg ttle dh SETUP THE CURSOR POSITIO 


SITION 
R OF CHARACTERS peucree 
mov E THESE CHARACTERS FROM 


R4 AnD RE THE COUNT 
0), TT¥SL RB_ECHSTR(RS); GET THE ADDRESS FOR UPDAT 
),- ; DELETE THE WORD 
14, vattyst. RB_ECHSTR(R4); 


; RESTORE THE STATE 


RYT 


O EVERYTHI 
MODE(R4); SETUP THE MODE FOR EDITECHOING 
0 ECHO 


; GET" THE NEXT CHARACTER 


7 
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v04-009 Post typeahead character act on routines oe ts 9 Tate TTDRVR.SR REN TYCHARO.MAR; 1 ve (23, vg 
E 17} p++ 
; oe ; Escape_Char 
F 178 ; Possible escape errr found, could be an altmode for 
F 177 ; lower case terminals or could be a CSf for new eight bit terminals. 
: 178 ; ALL cases must be handled sereerteeblic 
Fo 0180 ESCAPE_CHAR: 
53 7D af 94 F 1 CHP #TTYSC_LOWESCTR3 : ALT MODE? 
537 Bf 9 FS $ CHPB gTYSC_ LOWESC2,R3 ; ALT MODE? 
39 44 as 88 £6 FE 185 47$: BBS #TTSV_LOWER UCBSL _DEVDEPEND (RS) 51$; LOWER CASE TERMINAL CONTINUE 
53 1B «469A (0CO8 21 6 MOVZBL #TTYS$C_ESCAPE, ; CHANGE CHARACTER TO ESCAPE 
C06 : 52$: 
E08 199 : PROCESS ESCAPE SEQUENCES AND ESCAPES 
C06 191 ° IF NOT_STATE <ESCAPE, EDITING>,55$; hor AN ESCAPE TERMINAL THEN EXIT 
F88B 460 30—s«O F 198 BSBw ESCINIT ; HANDLE THE ESCAPE PREFIXES 
O18 Seg Age SEE Sige OME HCP TE 
51 58 AS DO £18 195 MOVL 5 (pst et heey : GET THE IRP ADDRESS 
38 al 53 «BO OCID 196 MOV) =—R3,IRP : us ite : SET TERMINATOR CHARACTER 
3A Al 86 O¢ 1 219 INCW IRPSL_MEDIA+2(R1) + START TERMINAT OR SIZE 
51 CAS 3C 0624 2198 MOVZWL TTYSWRB TRTOFF (R4) RI : GET THE PLACE TO STORE THE ESCAPE 
008441 1B 90 O0C28 2199 MOVB  #TTY$C_ESCAPE ATTYSL RB_FXTCRAICRI Ie AND PLACE THE CHARACTER IN THE 
3¢ B6 OC2D 2200 INCW __TTY$W_RB_TXTOFF (R4) : AND INCREMENT THE WORLD 
0C30 2201 IF STATE ESC,60$ 
o¢ 4 08 SET_STATE ESC : BEGIN ESCAPE SEQUENCE 
F957 31. «0C39 «220 BRW CHECK_BUFFER : INSERT THE ESCAPE AT THE END OF THE BUFFER 
bese $508 Sis: 
o¢ C 6 " _IF_NOT_STATE ESC,55$ 
FAIC 31 He - BRO ESCINPROG : ESCAPE IN PROGGRSS THEN CONTINUE 
F92B 31 aces 09 "  BRW INSERT_CHAR : ELSE INSERT THE CHARACTER 
ace 1 : ALREADY IN ESCAPE MODE THEN MAKE THIS BAD 
0646 i é0s: SET _STATE <BADESC EOL> ; 
F3B4 31 OC4E 2214 BRw GE TNEXTCHAR 


F 9 
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c51 16 
C51 17 344 
C51 18 ; FORWARD CHAR 
: } 19 ; MOVE THE CURSOR FORWARD 1 CHARACTER POSITION. 
c51 FORWARD_CHAR: 
51 30 A4 a C d MOVZWL TTYSW_RB_LINOFF(R4),R1 _; GET THE OFFSET TO THE CHARACTER 
Ss zt ay A OC MOVZBL aTTY$C_RB IN(R4)CRIJ,R3: GET THE CHARCTER 
32 AS =OB7:SCOOCSA 4 DECW TTYSW_RB_CINREST(R4) ; FORWARD A CHARACTER 
19 OC5SD 5 BLSS 50$ ; AT THE END THEN DON'T ALLOW IT 
1 Be CSF § CLRL R1 3: GOING FORWARD 
ocee 0 £6) BSBW GHAR SIZE : gies THE SIZE OF THE CHARACTER 
38 AG OOFC C5 Al C64 8 ADDW3 36 yCe W_TT CURSOR(RS), TTY W RB_CPZCUR(R4); UPDATE THE CURSOR POSITI 
30 AS 3c C68 MOVZWL TTYSW_RB-LINOFF(R4),R1 ; GET TRE OFFSET 10 THE CHARACTER 
53 2c yy 9A $3 0 MOVZBL aTTY$C_RB LIN(R4) CRIJ,R3: GET E CHARCTER 
AG B6 C74 1 INCW TTY$w_RB Eingre (Rs) ; UPDATE THE REST POINTER 
53 09 91 C77 § CMPB #TTY$SC_TAB,R 3; ARE WE FORWARDING OVER A TAB? 
03 3 Bera BNEQ 10$ 3 NO THEN CONTINUE 
040E 3 c7Cc 4 BSBW TABRIGHT 3; YES THEN CHECK FOR A TAB TO THE RIGHT 
OC7F 5 10$: IF STATE NOECHO,GODROP 
F501 31 pees § BRO FORMAT_CHAR ; THEN OUPUT THE CHARACTER TO GO FOWARD 
32 AG 4 0C86 8 50$: CLRW TTYSW_RB_LINREST(R4) ; RESET THE POINTER 
F60D 1 0c89 39 GODROP: BRW DROP ; AND DROP THE CHARACTER 


G 
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¢ :+ 
MOVE _BOL 


; DESCRIPTION: 
; GO TO THE BEGINNING OF THE LINE. 


L 
SET STATE. <MULTITSKIPL LF, SKIPCRLF>; SETUP To- bo. A MULTIECH 0 
CLRO TY$W_RB_CPZCUR(R4) 3; MOVE TO THE BEGINNING WHEN DONE 
BRB 60D DROP 3 THEN DISPATCH 


oF IF THE ORIGION IS NON-ZERO THEN MOVE THE CURSOR TO THE ORIGIONAL POSITION 


é3 bos: MOV’ TTY$W_RB_CPZORG(R4) , TTYSW_RB_CPZCUR(R4); SETUP TO MOVE BACK 
BRw UPDATE_CORSOR 


38 A4 
B6 


PORES SENET UN SOR NO RR CEC 


-o oo-@ 


3A AG : 2 ~"""TSTW  —- TTY$W_RB_CPZORG(R4) ; START AT ZERO? 
0 BEQL 108 ; YES THEN NO SPECAIL ACTION 
04 3 BSBW ZERO. CP ; ZERO ORG CURSOR IF WE HAVE WRAPPED 
32 AG ; AG COA 9 10$ ADDW =: TT Y$Q CRB OP NOFF (RG), TTYSW_RB_LINREST(R4); MOVE THE EMARACTER COUNTS 
0 8 2 CLRW 3 soTTY$W™ RB LINOFF (R4) 77"AND CLEAR THE NUMBER OF CHARACTERS WE HAVE 
3EE 0-30 BSBW = TABRIGH : CHECK FOR TABS TO THE RIGHT 
64 2C AG 01 O0C9 4 CMPL = TTYSL_ a LLIN(R4) , TTYSL Rb _TXT(R4G); ARE WE ON THE FIRST LINE 
12 OCA 5 BNEQ 208 ; THEN JUST DROP IT 
4 O01 BE OCA 6 MNEGB #1,TTYS$B_RB_ECHLEN(R4) : CLEAN OUT THE STRING TO ECHO 
44 046 07 98 A MOVZBY | avty Sk ER PR PRMECHO,TTY$W_RB_MODE(R4); SETUP THE MODE 
3A AG 5 B § 20$:  TST@ TTY$W_RB_ CPZORG(RS) Z START AT ZERO? 
1D B 0 BNEQ  50$ YES THEN NO SPECAIL ACTION 
00D8 CS 00000001" EF : B 1 MOV TTYSA_ANSI_DEOL+1, -UCBSL ft MULTICRS) ae! THE ADDRESS OF A <CR> 
oopc cS : ; MOV #1,UCBSw_TT MULTILEN(R J; AND ONLY OUTPUT TH HE <CR> 
4 OCC 
1 OCD 
D 
D 
D 
D 
D 


PAAOOAOOOAOIQNOAIOAOOAAOOAAAOOAQAOAOAOOAOAOO 
COWIE Th BOA BS OUWN AEN OFS HOOOOOOME 


COOoooooceo 


38 AS = SA_AG 89 
O3CE 


4 
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CoB 4 +4 
CoB ; MOVE_EOL 
CDB 73 ; DESCRIPTION: 
CB £6 i MOVE TO THE END OF THE LINE. 
CDB 2078 MOVE_EOL 
OB AG 32 A AG 90 CB ? VB  TTY$W_RB_LINREST(R4), TTY$B_RB_ECHLEN(R4); GET THE LENGTH TO ECHO 
51 C OCE 0 MOVZWL TTYSW RB-LINOFF(R4),R1 ; GET THE OFFSET OF THIS CHARACTER 
14 AG 2C Beat E OCE4 1 MOVAB  a@TTY$C_RB_LIN(R4)CRIJ,TTYSL_RB_ECHSTR(R4) ; SETUP THE ADDRESS ALSO 
44 AG 02) «9B. sCOOCEA ; MOVZBW #TTYSK ER ECHLINE, TTY$wW_RB_MODE(R4); AND SETUP THE 
CE CLR_STATE TABRIGHT ; RO MORE CHARACTERS TO THE RIGHT SO 
CF 4 : NO TABS EITHER 
CF 5 IF _STATE NOECHO, 10$ + NO ECHO THEN DON'T ECHO 
CF : set STATE EDITREAD : THEN THE STATE 
30 Ad 332 AG 6 AO OCF 10$: DD TTY$W_RB_LINREST(R4),TTY$w_RB_LINOFF(R4); FIX THE COUNTS 
AG B84 0D0 88 CCR TTYSWRB-LINREST(R4) =. 2 
F2FF 1 0D0 BRw GETNEXTCAAR 3; GET THE NEXT CHARACTER 


ae 
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D i+ 

. i : QUOTING 

D 4 : DESCRIPTION: 

p 5: INITIATE QUOTING SEQUENCE 

D 39 QUOTING: 

D0 9 SET_STATE QUOTING iSET THE STATE QUOTE 
F2F7, 31 «OD0B. 229 BRW” © GETNEXTCHAR : AND CONTINUE ON 


T) 


7 
3) 


y acro V04-00 Page g 
TTDRVR.SRCITTYCHARO.MAR; 1 ( 
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TTYCHARO 
v04-000 
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o e 
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E4 
31 


P=1 TTDRVR.SRCJ Try YCHARO.MAR; 1 


D 3 3+ 

8 gi : TOGGELINSOV 

D gi: ; Besse tgtton 

4 : oggel the insert/overstrike mode flag 

D § fOGGELINSOV: 

bis ? #TTYSV_ST_OVERSTRIKE,4(R2),10$; TOGGEL THE OVERSTRIKE BIT 
bs SET_STATE OVER RSTRIKE 

D4 2 108: BRW” GE TNEX TCHARS 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 7:21:31 VAX/VMS Macro V04-00 Page 69 
v04=000 EDITREAD = READ EDITING STATE. g- -SEP- =}382 ge: ahitg YT TORVR. SEIT JTTYCHARO.MAR; 1 . (8) 
b4B 5 ~SBTTL EDITREAD = READ EDITING STATE 
048 3++ 
D468 ; EDITREAD = STATE TO ALLOW A READ EDITING SEQUENCE 
D4B 40 ; FUNCTIONAL DESCRIPTION: 
D4B 4¢ ; WHEN ECHOING PARTS OF READS IT IS NECESSARY TO ECHO SEVERAL 
D468 43 t STRINGS, THIS ROUTINE FILLS THAT NEED 
D4B 43 + INPUTS: 
D4B ‘3 : R? = ADDRESS OF THE UNIT STATE VECTOR 
° = 
D4B 48 R5 = UCB ADDRESS 
4B 20 : OUTPUTS: 
D4B 3 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
D4B ; R4 = ADDRESS OF THE READ PACKET 
D4B 2354: R5 = UCB ADDRESS 
ae 
pore 2§ EDITREAD: ; READ EDITING 
54 78 AS DO O0D4B 2358 MOVL  UCBSL_SVAPTE(RS) ,R4 : GET THE READ PACKET ADDRESS 
OD4F 59 CASE  TTY$W7RB_MODE (R45 , TYPE=W,<- 
OD4F 60 NORMAL, = 
OD4F 61 CLRECHO, = : ECHO WITH CLEAR BIT SET 
D4F 62 ECHLINE : JUST ECHO WHAT IS SPECIFYED 
OD4F 236 UPDCURSOR, - : UPDATE THE CURSOR POSITION 
OD4F 2364 EXITING : SETUP TO EXIT. 
OD4F 2365 MOVE CURSOR, - : ALLOW CURSOR TO BE UPDATED 
D4F 66 CLRREST,- ; CLEAR, THE REST OF THE LINE 
D4F 236 PRMECHO,- + ECHO PROMPT THEN CONTINUE 
D4F 2368 PRMECHO1,- : CONTINUING STATE FOR PROMPTING 
D4F 2369 ESECHO,- : ECHO AES STRING AND NOSTRING 
OD4F 70 RVECHO,- ; echo in the readverify yey 
D4F 2371 SIMCEOL> : SIMULATE CLEAR TO END OF LINE 
D6¢ rg NORMAL : 
ange 7% IF STATE, <CTRLR RDVERIFY>, 1208 : HAVE WE COMPLETED THE CONTROL-R 
3A AG 85 D 75 TST TYSW_RB_CPZORG(R4) ; START AT ZE 
13 0D7B8 i BEQL sf : YES THEN NO SPECAIL ACTION 
oorc cS) «BS SCOOD7D «237 TSTW YCBSW_TT_CURSOR(RS) > AND WE A AT ZER 
A 12 0081 28 BNEQ : YES THEN WE SHOULD FIXUP THE LINE 
3A AG B D83 237 CLRW © TTY$W_RB_CPZORG(R4) : DO THE FIXING 
023 0 86 0 BSBW  =s-» FIND : FIND THE BEGINNING OF THE LAST LINE 
Oorc C5) «64 OOD 1 CLRW UCB$@ TT_CURSOR(RS) : FIX THE CURSOR (C HANGED DURING FIND BOL) 
D8D : 25$: IF NOT_STATE SKIPCRLF,119 : NO THEN ARE WE DOING A CR 
D91 SET STATE <SKIPLF> : YES THEN SKIP A LEADING LINEFEED AND CONTI 
44 AG 06 98 095 4 MOV72BW #TTYSK_ER_CLRREST, TTYS$W_RB_MODE(R4); THEN CLEAR THE REST 
32 AG) «BS. C099 5 TSTW TTYSW RB CINREST (Ra) ; CURSOR VALID? 
04 2 0D9C 6 BNEQ 119% : YES THEN USE IT 
38 AG 6001s AEs MNEGW #1, TTYSW_RB CPZCUR(R4) ; ELSE USE THE END POSITION 
DA : 119$: SET TATE <CTRLR-EDITREAD> : INDICATE THAT WE ARE OUTPUTTING THE 
34 AG 30 AG AT. «ODAA ADDOS = TTY$SW_RB_TXTOFF (R4) , TTYSW_RB_PRMLEN(RS) ,~ 
51 DAF 0 R1 s"GET THE NUMBER OF CHARACTERS TO OUTPUT 
07 +13 ODBO 2391 BEQL 1208 : IF NONE THEN DON’ ER. 
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TTYCHARO - Terminal driver character output routi 16-SEP-1 AX/VMS Macro v04-00 Page 70 
v04-000 EDITREAD = READ EDITING STA ATE. $7 -SEP=1 138 Be: 4; 3 ET TORVR. SRE JTTYCHARO.MAR; 1 9 56) 
54 4A AG 9 DB rt} MOVAB YSA_RB_PRM(R4) ,R4 : GET THE ADDRESS TO STA 
0285 DB BRW RTROLTT 1 ; START THE STRING SCHOING. 
DB $3 : END OF CONTROL R 
51 14 as 09 pay 38 1208: movi TTYSL RB. ECHSTR(R4),R1 =; CHECK FOR A CALLBACK 
DBF 38 MOVIFNEC: 
32 Ad DBF 2400 TST TTY$W_RB_LINREST(R4) y ANY MORE CHARACTERS ON THE LINE 
03 i Ce 401 BEQLU EXITING ~ : NO TH HEN EXIT 
00 DC4 24 : BRW HOVE CURSOR : YES THEN MOVE THE CURSOR 
44 At Bs DC? 4 ; EXITING: CLRW TTVSW_R RB MODE (RG) : CLEAN OUT THE EDITING MODE 
DCD 2405 CLR STATE <EDITREAD, CTRLR, CTRLO, SKIPCRLF , TABEXPAND> 
F229. 31 DoY 4 6 BRW GETNEXTC 
DDC 2408 ; IT MAY BE NECESSARY TO CALL THE EDITING CODE BACK TO DO SOME WORK OPERATION 
ppc 409 : THAT REQUIRED A ZERO ORIGIONAL CURSOR POSITION 
44 AG B4 ODDC rat CALLBACK: CLRW T1ySu_ RB _MODE (R4) : CLEAN OUT THE EDITING MODE 
14 AG «0D4sOODDF 41g RL _TTYSL-RB-ECHSTR(R4) 
DE2 241 CLR_STATE irvine. cP CTRLR, CTRLO, SKIPCRLE TABE XPAND> 
3A AG «6BS OCODEE «2414 TSTQ 20RG(R4) MAKE SURE WE WON'T LOOP 
D4 12 ODF1 2615 BNEG EX : IF NOT SUCCESSFULL IN CLEAR 
ODF S 416 t THE ORIGION THEN DROP THE CHARACTER 
61 17 ODF3 2417 JMP (R1) 
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v04-000 
44 AG 04 
51 8 AG 
54 4 AG 
026A 
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minal driver chara act tput routi 16-SEP-1 AX/VMS Macro Vv04-00 Pa 
EAD = READ EDITING TATE. weenie: g- sb 1382 2: #4; #3 TTDRVR.SRCJTTYCHARO.MAR; 1 ” (5) 
OF 4 : 
er ? ; ALTERNATE ECHO STRING. 
DF 4 AeESECHO: MOVW #TTYSK_ER_EXITING, TTYSW_RB_MODE(R4); setup T O EXIT 
ODF9 24 MOVZWL TTYS$W_RB B RESLENCRS) OR ; THE LENGTH OF THE STRING TO ECHO 
ODFD 2424 MOVL TTYSL-RB_AES(R4) ,R4 : AND THE ADDRESS 
0E01 2425 BRW STRTMOLTT_1 3 NOW MULTIECHO 
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B 10 
river character output routi ya p= 38% be:41:31 AX/VMS Macro V04-00 Page ; 
EAD EDITING STATE -19 4:16:19 CTTDRVR.SR REIT TYCHARO.MAR; 1 (58) 
4 7 ; 
: gi 3 Echo and clear to end of the Line 
430 €LRECHO: 
431 SE¢_STATE <TABEXPAND> SET TO EXPAND TABS 
4 § MUV7BW #TTYSK_ER_CLRREST,TTYS$W _ke errs tie’ Mba MOVE THE CURSOR 
4 COMECHO:M)VZBL TTY$B ABE ECHLE EN(R4), R1 : SETUP TH HEN NMBER OF CHARACTERS 
rtf MOVL TY$L_RB_ECHSTR(R4), *R4 3 aE TUP FOR MUL TIECHO 


E 
Bw STRIMOL TTL1 ; AND START THE MULTIECHOING 
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C 10 
river character output routi 16-$ 4 AX/ v04-00 Page TY 
EAD EDITING STATE ° g-3fF =138% Be: 4; #3 skis R.S Base ry TTYCHARO.MAR; 1 . (8) vc 
437 ; 
‘3 ; Clear to the end of the Line 
440 ELRREST: 
44 #TTYSK_ER_MOVECURSOR, TTYSW_RB_MODE(R4); 
re TIYSH_RO_CPECUR (RS) ; NEGITIVE CUR MEANS DON'T UPDATE 
444 UCB$W_TT_CURSOR(RS), TTY$W_RB_CPZCUR(R4); UPDATE THE CURRENT 
445 208: UCBS$W-TT-CURSOR(R5) ,UCBSW-DEVBUFSIZ(R5); ANYTHING TO CLEAR 
266 MOVECORSOR : NOTHING TO CLEAR THEN Gust MOVE THE 
$68 #1128 ANSICRT,UCBSL_ pevBEPND (R5),30$; IS IT AN ANSI CRT 
44 TTYSA_ANSICEL,R4 ; GET A CLEAR TO END OF LINE SEQUENCE 
450 W STRTMOLTI ; AND MULTIECHO IT OUT 
451 for non-ansi terminals 
138 $0: MO 2 aTTVSE ER. SIMCEOL, TTY$W_RB_MODE(R4); TELL IT TO COME BACK AND SIMULA 
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TTYCHARO - Terminal driver character output routi 16-SEP-1 AX/VMS Macro v04-00 Page 74 1 
v04-000 EDITREAD = READ EDITING STATE ° g- -SEP-1 1382 §: £3; ‘j TTDRVR. SR ahi TYCHARO.MAR; 1 ° (60) vi 
E44 2455 ; 
Bie ri § ; echo the given data then exit 
44 06 06 9B QE44 24 8 ECHLINE: + aay #TTYSK_ER_EXITING, TTYSW RB MODE(R4); EXIT AFTER ECHOING 
11 O€&48 245 COMECHO ; AND GO TO THE COMMON CODE 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 02:21:31 VAX/VMS Macro v04-00 Page 75 
v04-000 EDITREAD = READ EDITING STATE . g- -SEP-1 1382 a Pee TTDRVR. SREITTYCHARO.MAR: 1 te (61) 

4A 246 3 

a i 3; cause the cursor to be moved to it's origional position 

E4A 2464 MOVECURSOR: 

44 AG "F ESA 2465 MOVZBW out ER_EXITING, TTYSW -Re ne Bet SETUP TO EXIT 
0258 E4E 2466 BRW DATE~CURSOR D UPDATE THE CURSOR 
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TTYCHARO - Terminal driver character output routi i ts at 9 2:21:31 VAX/VMS Macro V04-00 Page 7 v 
v04-000 EDITREAD = READ EDITING STATE -SEP-1984 04:16:19 CTTDRVR.SRCITTYCHARO.MAR;1 (62) vl 
E51 2468 ; 
E51 iss ; Echo @ prompt and a given amount of data then move the cursor to 
; i rth ; the specifyed position. This handles the no prompt case correctly. 
E51 2472 PRMECHO 
51 34 AG 8 E51 238 *movw TTYSW_RB_PRMLEN(R4),R1 ; GET THE LENGTH OF THE PROMPT 
=) E28 474 BEQL : NO PROMPT THEN JUST ECHO SPECIFYED STRING 
44 04 08 9B OES 475 MOVIBW #TTYSK_ER_PRMECHO1, TTYSW_RB ag ge SET THE NEXT STATE 
54 GA AG GE OE5B 2f8 MOVAB _TTYSA_RB_PRM(R4) RS >; GET THE P ot ADDRESS 
ESF 247 set STATE < <SkTPGRLE SKIPLF> SKIP THE FREE LINEFEEDS 
0206 (31 £63 $78 BRW STRTMULTI_1 ‘AND MULTIECHO THE PROMPT OUT 
a cB : SETUP THE CORRECT CURSOR POSITION FOR THE NO PROMPT CASE 
OOFC CS 3A AG BO OF68 2482 408:  mMOVW  TTY$W_RB_CPZORG(R4) ,UCBSW_TT_CURSOR(RS) 
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haracter output routi 16-SEP-1984 02:21:31 VAX/VMS Macro v04-00 Pa 7 
DiTING STATE. = “ et 7 §e: 9h: %4 TTDRVR.SRCITTYCHARO.MAR; 1 - (se 


in river 
AD EAD E 
E § 3 
E 7 ; read verify echoing (echo's a string replacing fill characters with clear characte 
0B AS) 97 5 AVECHO: DECB TTYSB_RB_ECHLEN(R4) 3; TAKE THIS wARAc Tes OUT 
1A 19 3A $ LSS 3; NO_MORE TH 9 ave THE CURSOR 
53 146864 9A MOVZBL @TTYSL_RB_ECHSTR(R4),R3_; GET A CHARACTER 
14 AG ) A 8 CMPL TTYSL_RB_ECHSTR(R4), fTysi _RB_TXT MOF out THIS PAST THE PROMPT 
OA 9 OQEA BLSS 10$ 3” NO” THE cei SHARAL TERS 
53 47 AG 9} EA6 CMPB TTYSB_RB_RVFFIL(R4),R3 ; IS THis R as CTER 
06 = EAA 1 BNEQ 10$ ; NO THEN CON ioe 
53 46 A6 QA OQEA 1 MOVZBL TTYS$B_RB oRYFCLR CRS) R3 ; OTHERWISE ECHO THE CLEAR CHARACTER 
14 AG $ €B 13 108: INCL TTYSL-RB-ECHSTR 3; UPDATE THE COUN 
F2D1 €B 14 BRW FORMAT _CRAR ; ELSE FORMAT THE "CHARACTER 
FFO6 1 + 212 208: BRW MOVIFNEC : MOVE IF NECESSAR 


<-— 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 :21:31 VAX/VMS Macro v04-00 Page 79 
04-000 EDITREAD = READ EDITING STATE et ot S7SEba ions Oc stostd LAtOKUR eaeaeryoage.mar:1 P29 (22, 
EB 18; 
EB ; ; NON-ANSI CRT THEN SIMULATE CLEAR TO END OF LINE 
EB SIMCEOL: 
Oc €1 O€B BBC #TTSV_SCOPE,- : CLEAR TO END OF LINE 1S MEANINGLESS 
BC 44 A £BB UCBSL PE PEREOR RSS -UoBsC pee ON HARD copy TERMINALS 
5342 AS OFC A3 (OEB 4 SUBW3 UCBS$W~TT_CURSOR(RS) .UCBSW_DEVBUFSIZ(R5),R 
; 8} EC 5 CHP R gfe ; "OUTPUT IN GROUPS OF 8 
54 00000000 EF Hi: ECA $ MOVAB TTYSA_TAB,R4 :°SETUP TO ECHO 8 
018¢ ED! BRW STRTMOLTI 
44 Ab Qs 98 ED4 10S: wovZeM IT YSK FR. MOVECURSOR, TTYSW RB_MODE(R4); NEXT MOVE ite CURSOR 
51 53 01 ED8 1 #1,R SUBTRACT 1 FROM THE COU 
54 00000001 *EF F EDC 3 : HOVAB TTYSA. TAB+1,R4 ¥ 
0188 EE STRTMOLTI_1 > AND ECHO IT 


<- 


OOFC C5 


38 A4 
FEDS 


if 


PDCURSOR: 
MOVW 


T B_CPZCUR(R4) ,UCBSW_TT 
BRwW E ; TH 
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r character output routi 16-SEP-1984 02:21:31 VAX/VMS Macro v04-00 P 
EDITING STATE or3ee= 188s BEETS ATOMS Bacco vOKzOO 8, Page 80, 
; set the current cursor position 


THE 


= 


CURSOR(R5); UPDATE THE CURSOR POSITION 
N EXIT 


<- 
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K 10 
Griver character output routi 16-SEP-19 AX/VMS Macro V04-00 
e routines g- Hatt ge: 4; ty TTDORVR.S REIT TYCHARO.MAR; 1 
? i -SBTTL Read service routines 
te ; BACK TAB 
4 ; Calculates the cursor postion of the beginning of a tab while 
oF 3; at the end of the tab. ° . 
a3 : Implicit inputs: 
1 : RS UCB addres 
gi : TTY$SW_RB_LINOFF ¢ the current location off of LIN 
; TTYSL_RB_LIN the address of the beginning ot this line 
4; TTYSL_RB_TXT the address of the beginning of the data buffer 
555 ; TTYSA_RB_PRM offset from svapte to the beginning of the prompt 
33° : TTY$W_RB_CPZORG cursor postion when the read started 
5 gi ; Outputs: 
223 $ R3 Mod 8 of the cursor position 
561 BACK_TAB: 
266 PUSHL R4 3; SAVE R 
56 MOVL yeast a ee tht, $ at THE ADDRESS ot At READ BUFFER 
564 MOVZWL TTYSW eRe) ; GET THE CURRENT LOCATION 
565 MOVAB. at 1st. Re LARGO ERS R3; POINT TO EN ND aot 
208 CLRL -(SP) SET UP CURSOR COUNTER 
56 CMPL TTYS$L_RB_LIN(R4), TTYSL_RB_ TXT(R4); ARE WE ON THE FIRST LINE? 
208 BEQL 10$ ; YES THEN CONTI 
28 MOVL TTYSL_RB_LIN(R4) ,R4 s ce JUST USE THE BEGINNING OF THIS ONE 
570 BRB 20$ 3 D CONTINUE ON 
571 10$: MOVAB TTYSL_RB_DATA(R4) ,R4 3 POINT TO DATA START 
278 20$: CMPL R3,R4 ; BUFFER START? 
57 BEaL «6-4 0$ : THEN REFERENCE point FOUND 
574 CMPB -(R3) ,#TTYSC_CR ; CARRIAGE RETU 
575 BEQL 50$ 3; IF EQL THEN NEF ERENCE POINT FOUND 
278 CMPB (R3) ,#TTYSC_TAB 3; TAB? 
57 BEQL 50$ ; IF EQL THEN REFERENCE POINT FOUND 
578 CMPB (R3) ,@TTYSC_ESCAPE ; IS THIS AN ESCAP 
579 BEQL 30$ 3; YES THEN a THE ESCAPE SEQUENCE 
580 CMPB (R3) ,#TTYSC_CSI ; CSI°S COUNT ALSO 
581 BEQL 30$ 
286 CMPB (R3) ,#TTY$C_BLANK 3; CURSOR — CHARACTER? 
5 BLSSU 20% 3; IF LSSU TH 
584 INCL (SP) 3; ADJUST FAKE M CURSOR 
2 5 Bee 208 3; CONTINUE 
: 2: ESCAPE INTRODUCER FOUND 
589 $08: BSBW ESCAPE. TAB ; REMOVE THE ESCAPE SEQUENCE 
i BRB 3 THEN CONTINUE 
398 ; RAN OUT OF BUFFER WITHOUT FINDING A REFERENCE POINT 
594 los: MOVL UCB$L_SVAPTE(RS) ,R3 GET THE ADORESS OF ie READ BUFF 
395 CMPL = TTYSLRB_TXT(R3).TTYSL Rb LIN(R3); THIS IS NOT THE FIRS 
%6 BNEQ 0 ZERO BASED ORIGION. 
ade ADDW TTY$W_RB_CPZORG(R3), (SP): ELSE USE ORITIONAL ORIGION 


1 
7) 


<- 
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F 
F4 
F 
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; FOUND THE REFERENCE POINT THEN CONTINUE 
§0$: BICL3 #*XOFFFFFFF8,(SP)+,R3 
POPL RG 


AX/VMS Mac 
TTDRVR.SRC 


71 


; GET MOD 8 OF CURSOR 
; RESTORE R4 


v04-00 
YCHARO.MAR; 1 
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driver character out 
e routines 


p++ 
3 CHAR_SIZE 


: DESCRIPTION: 


GIVEN A CHARACTE 
OF CURSOR POSITIONS TH 


INPUTS: 


W*TTYSA_TYPECR 
aa #1,R3 


OUTPUTS: 

R3 = 

CHAR_SIZE: 
CASE 
BITB 
BNE 
RS 

5$ CLRL 
RSB 

10$: MNEGL 
RSB 

5 

20$: 
EXTZ 
TSTL 
BGEQ 
BSBW 

23$: SUBL3 
RSB 

60$: 


n} = 0 FO 
= CHAR 
R5 = ADDR 


ws 


Sma UCBSW_TT_CURSOR(RS5) ,R3 


Be Oe: f6:4 


ROUTIN 
ILL 


R + ates CHARACTER SIZE -1 FOR BACKWARD CHARACTER SIZE 
PSs OF THE UCB 


THE tte dy IN CURSOR POSITIONS OF THIS CHARACTER 
R5 = UCB ADDRESS 


R3),LIMIT=#1aTTY$SV “r"Back 3 - TYPE=B,<- 


#0, #3,UCB$W_TT _CURSOR(RSS , nS: GET HORIZONTAL POINTER 
THIS A BACKWARD CALCULATION 


N_SUBTRACT 
: CALCULATE Ze THE “hap 8. 8 OF THE CURSOR 


<- 


v04—- 
try YCHARO.MAR; 1 


ee DETERMINE THE NUMBER 


; Ttasteed (no action) 
Vtab (no action) 
: re (no action) 
reese CH_CTRL2!TTYSM_CH_CTRL3>,- 
TEST FOR SPETIA A. 
: NON SPACING CHARACTER 
3 OTHERWISE ONLY 1 CHARACTER POSITION 


; BACKSPACE THEN BACKUP 


; CARRIAGE RETURN SHOULD ZERO CURSOR 
POSITION 
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TTYCHARO = Terminal driver character output routi 1 ~SEP-19 4 02:21:31 VAX/VMS Macro v04-00 Page 84 
v04-000 Read tne routines -SEP-1984 7: 4; :19 YT TORVR. SREITTYCH HARO.MAR; 1 a (69) 


>4 


Ff § 7 34+ 
r 8 ; ESCAPE_TAB 
F9 0 : andle the removal of escape sequencses from a prompt 
3 1; when Grlotten tabs. 
r9 if : Implicit inputs: 
9 4 5: RS the address of the escape character 
F9 008 3 THE UCB ADDRESS 
3 98 : 4(SP) the saaeenal count 
F3 ees : Implicit outputs: 
8 670 ; 
* 14 3 4(SP) updated internal count 
Ors ers : ALL registers are saved 
Ors 675 ESCAPE_TAB: 
51 DOD F9 978 PUSHL Ri 3 SAVE A SCRATCH REGISTER 
51 08 AE DO OF94 67 OVL 8(SP),R1 : RESTORE THE INTERNAL COUNT 
ig BB OF oe 678 PUSHR #AM<RS,R4> ‘ SAVE i REST OF THE REGISTERS 
54 5 dO F9A 2679 OVL R3,R4 : MOVE THE CURRENT POSITION TO R4 
53 a pee ret] ae ge (RA) + RS 3; GET THE reg THAT INTRODUCES THE SEQUENCE 
F4F7 ai OFAg ons BSBW ESCINIT INIT THE ESCAPE SEQUENCE RULES 
0103 CS 51 90 OFA 68 MOVB R1,UCBSB_TT_ESC(R5) Pas 
51 8EDO as one POPL R1 3 RESTORE R1 
51 D7 OFAD 2686 20S: DECL R1 ; DECREMENT THE COUNT 
53 84 9A OFAF 687 MOVZBL (R4)+,R3 3; GET THE ‘gereh AND MOVE TO THE NEXT 
F4F8 630 ares 688 BSBW ESCSYNTAX é ae THE SYNTA 
F6 14 OFB 689 BGTR 20$ 3; CONTINUE IF NECESSAR 
18 BA OFB7 690 POPR #*M<R3,R4> : ok ae Saas THEN RESTORE THE REGISTERS 
08 AE 51 DO OFB9 2691 MOVL  R1,8(SP) : PUT THE COUN 
51 8EDO OFBD O36 POPL R1 ; RESTORE THE Last REGISTER 
05 OFCO 269 RSB ; AND NOW RETURN 
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FC] 2695 ;++ 
43 238 ; FIND _BOL = FIND THE BEGINNING OF THIS LINE 
43) 038 : Description: 
FC 5 0 ; Given a string this routine will find the offset to the character 
FC) 2701 ; that will end up in the first character position of the bottom Line 
FC1 27 gi : of the screen 
ag 704 
FCI u 5 $ IMPLICIT INPUTS: 
Fe! 88 ; R2 = ADDRESS OF THE UNIT STATE VECTOR 
OFC1 2708 ; R4 = ADDRESS OF THE READ BUFFER 
OFC1 709 ; RS = ADDRESS OF THE UCB 
OFC1 2710 ; TTYSL_RB_TXT 
OFC1 2711 ; TTY$SL_RB_LIN 
OF C1 Ar : TTYSL-RB_PRMLEN 
OFC1 2713 ; TTYSL_RB_TXTOFF assumed non-zero 
OFC] 2714 ; TTYSA_RB_PRM 
OFC1 715 ; TTYSW_RB_LINOFF 
ores rig $ TTY$W_RB_LINREST assumed zero 
OFC 3718 : IMPLICIT OUTPUTS: 
OFC1 720 : TTYSL_RB_LIN address of the first character in this Line of data 
OFC1 721; TTY$L_RB_LINOFF offset from LIN to the end of the Line 
prey § : R3 is destroyed. 
OFC1 2724 FIND_BOL: 
OOFC CS) B4& OFCI 725 CLRW UCBSW_ TT_CURSOR(R5) 3; CLEAN THE CURSOR POSITION 
Dé oree f 8 FIND PO MCL EAR: 
2C AS 64 dO 8 728 MOVL pa RB_TXT(R4), TTY$SL -R LINGRA) START WITH THE BEGINNING 
0OCO 8F 8B FCB 168 PUSHR <Rb,R7> Few W SCRATCH REGISTERS 
D4 OFCF 730 CLRL Ren et EAR R a aaet ING OFFSET 
57 3C AG 34 AG Al QFD1 731 ADDW3 abe. RB_PRMLEN(R4), TTysu RB Mee che GET THE ENDING OFFSET 
00 2A A4 00 €5 OFD7? 27 $ BBCC it RS_WRAP, TTY$W_RB Wag At (R4) ogo: “igh R THE WRAP STATE 
GB FDC B75 2108: CRY Rea? we Taek eet | 
53 4A A646 QA OF BF 735 MOVZBL TTYSA_RB_PRM(R4)CR6I, R3 : GET THE NCHARAC TER 
56 D6 Bree 7 § INCL MOV FR TO THE NEXT CHARACTER 
00000000°EF43 04 91 OFEB 27 CMPB 0 #TTYSK_ET_ESCAPE, TTYSA_ ctuist 3) 
3 13 ar 7 8 BEQL 2508 ANDLE ESCAPE SEQUENCES 
53 D 91 OFF 7 CMPB #TTYSC_CR,R3 ; A CR ZEROS CURSOR | 
§ 13° OFF 740 BEQL 2308 : $O DO SO 
FF 30 OFF 741 BSBW CHAR_SIZE ; OTHER WISE GET THECURSOR POSITION 
OOFC C5 5 AO OFFA tg ADDW R3 utBsw_ TT_CURSOR(R5) ADD IN THE POSI 
42 AS OOFC fe 4 Aas SF cree yCBsu_ TT “CURSOR(RS), -UCBSW_DEVBUFSIZ(R5): IS THIS A WRAP 
OOFC CS) 42 A5 A2 : 07 748 SUBW UCBSW_DEVBUFSIZ(R5), ucesi_ TT lig SUBTRACT OUT THE 
44 74 MOVAB TTYS$A_RB get | R3 THE ADDRESS OF THE W 
00°2A he . 09 25 i 13 Sts $o0s: BBSS #TTy$7_rS _w TySu _RB_ fostart in) yt cate a WHE PURAP CHARACTERI 
f) OIA 5780 gees RS ITVS. RB_ATCR : ies a NUE 
2C A4 £8 DO 101C 2751 MOVL 1, aga the ; AND THIS IS THE LINE 


cc —_ a T™------"—rrs mss sss aw 
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BA 11 ? : BRB 210$ ; THEN CONTINUE 
53 4A A446 OSE: 754 230$: MOVAB TTYSA_RB_PRM(R4)CR6],R3 ; GET THE ADDRESS OF THE WRAP 
OoOFc cS BS 755 CLRW yCBsw TT=CURSOR(R5) + CLEAR CURSOR <CR> 
E5 11 1028 27 : BRB + NOW CONTINUE © 
1950 $5 
! 4 733 ; ESCAPE SEQUENCE INTRODUCER 
51 D 102D 2761 250$: PUSHL RI : SAVE R1 
F46A 100F 166 BSBW ESCINIT : INIT THE SYNTAX RULES 
0103 cS) 51 1 é £6 MOVB R1,UCBSB_TT_ESC(RS) “yee 
1 BED0 1 764 POPL RI : RESTORE THE REGISTER 
19 A 2765 2608: 
57 56 81 103A 766 CMPW 3 sR6 RT : ARE WE FINISHED 
OF «18 103D 76 BGEQ  2406$ + YES THEN EXIT 
53 4A A646) «090«S103F «2768 MOVB §TTYSA_RB_PRM(R4)CR6],R3 : GET THE NXT CHARA 
56 06 1044 69 INCL R6 ; MOVE TO THE NEXT CHARACTER 
F464 30 1046 770 BSBW SCSYNTAX t AND CHECK THE SYN 
EF 14 1049 2771 BGTR 60$ : MORE THEN CONTINU 
FFBE 31 1048 ae: BRW 10$ t NO MORE THEN GO BACK 
534A A446 H 1046 774 240$: MOVAB TTYSA_RB_PRM(R4)CROI,R3; GET THE ADDRESS OF THIS CHARACTER 
53 20 AG) «OC sO1053)— 2775 SUBL TIY$L~RB“LIN(R4) ,R3 GET THE OFFSET TO. THE LAST CHARACTER 
30 AG 53 BO 1057 2776 MOVW R3,TT7SwW RB_LINOFF (R4) : AND L LEAVE IT t 
00CO &F BA 1058 707 POPR #*°M<R6,R7> : RESTORE. THE REGISTERS 
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1 3+ 
} é 1: ; STRTMULTI = START A MULTIECHO STRING GIVEN THE ADDRESS OF AN ASCIC STRING 
} é 4 73 FUNCTIONAL DESCRIPTION: 
1 785 ; THIS ROUTINE STARTS THE ie WAL MULTIECHO STRING ON A as 
106 7 gi: ; THE COUNT OF THE STRING IS PLACED IN UCB$W_TT_MULTILEN, THE 
106 7 : ADDRESS OF THE FIRST CHARACTER IN THE vEFRING Ts PLACED IN NUCBSL. TT_MULTI. 
: ? if 8 ; THEN STATE MULTI IS SET AND MULTIECHO IS CALLED. 
106 790 : STRTMULTI_1 = starts a multiecho string given the address and a length 
} $9 73 : of a string (address in R4, Length in R1) 
106 793 ; INPUTS 
106 794 ; 
106 795 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
106 P38 3 R4 = ADDRESS OF A COUNTED MULTIECHO STRING (ASCIC) 
1060 797 ; RS = UCB ADDRESS 
1060 2798 ; 
1060 2799 ; OUTPUTS 
1968 800 : 
106 801 ; R2 = ADDRESS 4 atte UNIT STATE VECTOR 
1060 Hy 3 R35 = FIRST CHARACTER 
1060 280 : RS = UCB ADDR ese 
1060 Boe 3 R4 DEST ROYE 
1060 05 
1060 806 STRTMULTL: 
OODE C5 oopc cS BO Hs ¢ 80 UCBSu TT _MULTILEN(RS) ,UCBSW_TT_SMLTLEN(R5); SAVE LENGTH 
OODC C5 84 9B 106 808 MOV BU (R4) ss UCBSu_ TT _MULTILEN(RS) ~ 3;GET THE LENGTH INTO ALTLENA 
0c 11 106C 2809 LOADAD 
106E 2810 STRTMULTI_1:: 
OODE C5 oopc C5 B0 ioe 811 MOvw UCBSW_TT_MULTILEN(RS), em. TT te eee SAVE LENGTH 
00Opc cS = 51—s«&BO 1075 BIg i MOVW R1,UCBS$W7TT_MULTILEN(R ; MOVE IN THE NEW LENGTH 
OOEO C5 00D8 C5 DO 107A 2814 MOVL ures TT ai Ret YCes. TT ae SAVE THE ADDRESS 
00D8 C5 54 DO 1081 815 MOVL UCBSL TT_M LTICR ) HEN THE ADDRESS INTO MULTI 
1086 $813 SET state <MULT NENT SET MULTIECHO STATE 
F301 3) 108A 2817 brw A Fe 
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108D p++ 
1 ; 6 ; TABRIGHT = CHECK FOR A TAB TO THE RIGHT OF THE CURSOR POSITION 
1080 : : DESCRIPTION: 
1080 4: This routine will detect a tab character to the rit of of the afureer 
108D 5 ; position and set a flag indicatin that insert mode is illegal. 
! . § ; prevents having to recalculate tab and wrap position for each Mh. 
108D 8 ; Inputs: 
: 4 3 3 R4 = Read packet address 
19 4 1; Outputs: 
1080 : : TABRIGHT eeere bit set if a tab is to the right of the cursor 
1080 $838 : Mik taglatere oreeorend, 
3 regis ors reserve 

1080 j= . £ 
1080 TABRIGHT: 

03 1080 8 PUSHR #*M<RO,R1> 3; SAVE SOME rh) ae REGISTERS 
108F 2839 CLR_STATE TABRIGHT ; CLEAR THS STATE 

51 30 AG) =63C.s«1094 a9 MOV7WL TTY$W_RB LINOFE (RS) RI; THE OFFSET INTO THE STRING 
2C B441 32 AS 609) SA s«1098 41 LOCC #TTY$SC_TAB,TTYSW_RB_ ‘LinnésT (Rs) @TTY$L_RB_LIN(R4)CR1I; 

109F BAe ; TRY TO FIND K TAB 

05 13 109F 4 BEQL 10$ ; DID WE FIND A TAB? 
10A1 844 SET_STATE TABRIGHT ; YES THEN SET THE STATE 

03 BA 10A6 2845 10$: POPR #*M<RO,R1> 3; RESTORE in REGISTERS 

05 Hb 338 ; AND RETURN 


—_ 


F 11 
TTYCHARO - Terminal driver charact tput ti 16-SEP-1984 02:21:31 VAX/VMS M 4-00 
v04=000 let pecan opemangtrier te Be Beifaitg YAMONMS Bacse, VO 


Page $9 1] 
Read service routines “SEP-19 CHARO.MAR; 1 (73) 


10A 49 ;++ 
Ni} ; UPDATE_CURSOR 
i A? ; DESCRIPTION: 
10A9 4 i ; WILL SETUP THE N NECESS ARY SEQUENCE OF EVENTS TO HAVE 
A? ; THE CURSOR MVOVED TO THE PLACE SPECIFYED BY TTY$W_RB_CPZCUR 
iS 3? : INPUTS: 
10A9 35 : Re = = ADDRESS OF THE UNIT STATE VECTOR 
109 69 ; R5 = UCB ADDRESS 
10A9 ; TtYswe _RB_CPZCUR = THE FINAL CURSOR POSITION 
Py = e 
ag 6¢ UCBS$W-TT-CURSOR = THE CURRENT POSITION 
10A9 é + OUTPUT: 
10A9 66 ; R2 = ADDRESS OF THE UNIT STATE VECTOR 
10A9 2867 : R4 = ADDRESS OF THE READ PACKET 
10A9 68 ; R5 = UCB ADDRESS 
1OA8 $9 i ;_R3 DESTROYED 
10A9 2871 UPDATE_CURSOR: 
54 78 AS DO 10A9 876 MOVL. UCBSL_SVAPTE(RS) ,R4 : GET THE READ PACKET ADDRESS 
38 AG «=6A3 «(10AD «(287 SUBW3 TTYSWRB_CPZCUR(R4) ,- + SUBTRACT THE FINAL CURSOR POSITION 
OOFC C5 1080 7% UCB$W~TT~CURSOR(RS) .- : FROM THE CURRENT CURSOR POSITION 
0100 ¢5 108 75 UCB$W~TT-BSPLEN(R5) + AND ECHO THAT MANY BACKSPACES 
oorc ¢5) = B1 Ss: 10B6 id: CMPW =: UCBSWTT~CURSOR(RS5) ,- 
42 AS 10BA 7 YCBS_DEVBUFSIZ (RS) ; ARE WE AT THE END OF THE LINE 
OA iF 198C A. BLssu 5$ t NO THEN CONT 
oorc CS) B71 : 8 DECW  UCBSW_TT_CURSOR(RS) : KEEP THE POSITION CORRECT 
0100 ¢5 ~=B7 «(10 80 DECW  UCBSW-TT"BSPLEN(RS) : ELSE THE TERMINAL DOES A BACKSPACE 
4D (13 1se8 881 “ BEQL 408 : NO BACKSPACES THEN EXIT 
45 48 AS 18 €1 19¢ He BBC #1T2$V ANSICRT UCBSL DEVDEPND2(R5) , 308; NOT AN ANSI TERMINAL THEN BR 
0100 C5 8 61 10CD se CMPW #8 ,UCBSW_TT _BSPLEN( R5) : CAN —E OPTOMIZE ON AN ANSI TERMINA 
E 14 10D2 5 BGTR 308 : NO T HEN OUTPUT BACKSPACE 
F BB 10D4 : PUSHR #*M<RO,R1,R2,R3,R4,R5> + SAVE THE REGISTERS 
51 00000000" EF 9A D6 , mOVZBL TTYSA_ANSIBACKUP,R4 3 Ger THE LENGTH 0 OF THE STRING 
OC AS 00000000'EF 51 8 1008 89 MOVC3 1, TTYSA_ANSIBACKUP, TTY$Q_RB -ECWDMEEACRD WOVE THE CHARACTER 
3 BA 1 33 of POPR #*M<RO,R1,R2,R3,R4,R5> ; RESTORE THE REGISTERS 
E 4 10EA 289 cLRL -(SP) ; GET ENOUGH ROOM FOR THE DIVIDEND 
ve. 019 C C 10EC 289 MOV2WL UCBSW_TT -BSPLEN(RS) -(SP) ; AND PUT IT THE DIVISO 
AA 9€ 10F1 289% VAB_ TTY$Q7RB7ECHO AREA*G(RA), R1 ; GET THE ADDRESS OF THE FISRST BYTE 
53 ee” OA 10F5 2895 10$:  EDIV #10,(SP)7(SP),R ; GET THE FIRST DIGIT 
3 80 10FA ADDB = R23, -(R1) ; PUT IT IN PLACE 
6E 05 10FD 289 TSTL (36) ; 00 we HAVE ANY MORE TO DO 
F4 if 10FF 289 BNEG 108 ; YES THEN DO SO 
BE D5 1101 289 TSTL (SP) ; CLEAN THE STACK 
OOFC cS) 38 A 8 1 : 9 novi 1hYSu RB_CPZCUR(R4) ,UCBSW_T TcuR RSOR(RS): UPDATE THE CURSOR POSITION 
11 9 : : VZBW #TTYSR_ER UPDCURSOR, TTY$W-RB-MODE (R4); SETUP THE EDITREAD STATE 
11 903 ; SET STATE ERITREA : And setup the edit anced state 
54 OC A4 H: 11 904 VAB  TTY$Q_RB_ECHOAREA(R4) ,R4 : GET THE cho AREA ADDRESS 
FF4E 110F 2905 Rw STRTMOLTT : and start the mw hes F 
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p++ 
;ZERO_CPZORG = HANDLE CASE WHERE WE NEED A FRESH LINE 
DESCRIPTION: 

This routine will check and make sure that the origional cursor 


position becomes zero. This will then callback the routine that called it 
and re-run the operation. 


319 
ae 
111 318 
111 914 
111 915 
111 318 
111 91 
He 

nputs: 
111 920 
111 9 R4 = READ BUFFER ADDRESS 
111 9 R5 = UCB ADDRESS 
13 4 Z (SP) = ADDRESS OF A ROUTINE TO CONTINUE WITH 
111 925 ZERO_CPZORG: 
06 2A AS 00 €0 iti 2 § BBS #TTYSV_RS_WRAP, TTYSW_RB eg eta ooh The’ fo WRAPPED THEN 
2C A4 4 D1 1110 29 3 CMPL TTYSL_RB_TXT(R4) , TTYSL Rb. Ape DID WE WRAP? 
7 13 1121 29 BEQL (O THEN NO SPECAIL ACTION 
14 AG E 0 11 ; 930 50$: MOVL t ded TTYSL_RB_ ECHSTR(RA) ISETUP A_ CALLBACK 
F79E 1 #11 931 BRW CTRLR D REFRESH THE 10 
05 112A 2932 608: RSB 


TTYCHARO 
v04-000 Read passal 


51 3C AG 3 
00 8441 53 9 


on 
_ 
_ 
WAIST PINONINONINOPONoNonononon 
@ 


NNN FON OOWMODINWT NO OIOCOC OLS WWIWWWOIWTVIOoIIT0W 
WWOOODO DOWOWOOOOOOOOVOOOOOOOOOODO 


DPD PVPS rss £ Be BB BB EE AAAI 


WR SO ODNAWNE WO OD NAUE WH OOOO 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
i 
62 1€ B46 53 «EO (114 
HS AS =B6 114 
40 A4 CAS «Bi 114 
46 IE 114 
114 
114 
115 
0S 115 
115 
00 El 115 96 
10 48 A 115 96 
06 £0 116 964 
0B 20 A4 116 965 
FO7E 3] 116 $8 
F01B 1 116 96 
118 68 
93 11 9 
EE91 1 #117 9 9 
117 97 
0065 31 117 44 
117 97 
117 974 
jt. DO 117 975 
BC 20 Al —? 11 376 
85 atedinak E17 11 97 
5 AA 11 378 
51 = 3C AG af 118A 297 
00 B441 5 11 980 
1 11 981 
119 9 § 
51 8 AS DO 119 9 
Al B4 1199 2984 
119 985 
B2 04 A2. 1A Fs 11A 9 § 
A8 141A 9 
11A 9 3 
11A7 29 
30 AS = 35C AS OBO CTA? «29 
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zo 
> INPUTS: 
; R2 = ADDRESS OF THE UNIT STATE VECTOR 
: R3 = CHARACTER TO INSERT 
; R4 = READ PACKET ADDRESS 
; R5 = UCB ADDRESS 
BASSALL:: 
MOVZWL TTYS$W_RB_TXTOFF(R4),R1 ; GET THE PLACE TO PUT THIS CHARACTER 
OVB _R3,aTTY$SC_RB_TXT(R4SCRIJ: PUT THE CHARACTER 
iF State EEC, 18008" 1900$ : AOFORAAT CET ec CASING MAY BE NECESSAR 
1005$: IF "STATE ESCAPE 1645$ : CAPE MODE THEN EXIT 
1040$: BBS R3,aTTY$L_RB_TERM(R4), 15608; IS THIS A TERMINATOR 
INCW  TTY$W_RB_TXTOFF(R4) INCREMENT THE COUNT 
1010$: CMPW  TTY$W" “RB- TXTOFF(R4), TTS _RB TXTSIZ (RG) ARE WE FINSIHED 
BGEQU 16008" YES THEN FINISH 
1030$: IF_STATE <ESC>,1000$ : IS THIS THIS ESCAPE 
sans IF NOT STATE PRE, 1025$ : IF PRETYPEAHEAD THEN RETURN 
1025$: IF NOT Hs NOE CHO. 1027$ 
Bet $v LECHO,- LOCAL ECHO 
L DEVDEPNDZCAS), 10268; NO THEN SuST BE NOECHO 
BBS ATRRSD NOE CHO, - : NOECH O SPECIFYED 
TTYSL Re TaODRa) 10268 ; ON THE READ 
BRu FORA RMAT_ LOCA : ELSE LOCAL ECHO IT 
1027$: BRW FORM : FORMAT THE CHARACTER 
1000$: TE ANOT. STATE MORES 10268 
1026$: BRW GETNEXTCHAR 


10458: BRW 14008 
; CONVERT LOWER TO UPPER IF NOFORMAT 


1900$: MOVL UCBSL_ IRP(RS),R GET THE IRP ADDRESS 
BBC #10$V~CVTLOW, inpsw FUNC(RI) 10058 BR IF aGONverT LOWER TO UPPER 
BBC aTTy tH “LOWER, w'TTYSA. TYPECR 3-100 F NOT LOWER CHARACTER 
BiCw #x : CONVERT % Sipe R oA SE 
MOVZWL try W ig TXTOFF(R4),R1 _: GET THE PLACE TO PUT THIS CHARACTER 
MOVB RS ,giTY C_RB_TXT(R4SCR1]; PUT THE CHARACTER AWAY 
BRB 
1600$: MOVL UCBSL_IRP(RS),R1 : GET THE IRP ADDRESS 
CLRW —sI RPSL “MEDIACRI) ; SET NO TERMINATOR 
SET STATE EO Le SIGNIFY END OF LINE 
Best atys V_ST_PRE,4(R2), 1020$; CLEAR PRE IF NECESSARY AND EXIT 
1500$: MOVW  TTYSW_RB_TXTOFF(R4),TTYSW_RB_LINOFF(R4); SETUP LINOFF 


T 
T 
1 
r 
r 
r 
if 
r 
if 
T 
T 
T 
T 
T 
if 
if 
t 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
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11A 99 SET_STAT 3 SIGNIFY END OF LINE T 

66 «11 118 $34 BRB™ Fokos v 

: N 

118 934 ESCAPE IN PROGRESS r 

51 58 AS 00 118 536 1800S: MOVL UCBSL_IRP(RS).R1 : GET THE IRP ADDRESS T 

A Al B6 1186 299 INCW IRPSLMEDIA+2(R1) : ADD 1 TO THE SIZE T 

C AG 86 118 998 INCW  TTYSWTRB_TXTOFF(R4) : UP THE OFFSET BECAUSE WE PUT 1 CHAR IN THE T 

Fate 11BC 299 BSBW F § YRTAR 3 CHECK THE SYNTAX OF THIS CHAR T 

1 14 11BF 0 BGTR $ : OK THEN CONTINUE 0 T 

04 13 1¢ 1 BEQL 18108 + VALID SEQUENCE CONTINUE t 

11¢ é SET_STATE BADESC : A BAD ESCAPE SEQUENCE THEN SAY SO T 

11¢ 04 1810$: CLRTSTATE ESC : CLEAR THE ESCAPE STAT T 

30 AG) «6 BA Al A2 «(11 5 SUB IRP$L_MEDIA+2(R1), TTYSW_RB_TXTOFF(R4); SUBTRACT OUT THE SEQUENCE T 
x <E0C, > : N LIN 

Vip} 6 SET_STATE <EOC,NOECHO CENGTH AND SET END OF LINE q 

0047 31 1109 008 1830$: BRW 14508 : THEN EXIT r 
00000000'EF43 91 11DC 3010 14008: CMPB TTYSA_CCLISTCR3],#TTYSK_ET_ESCAPE; CHECK FOR ESCAPE INTR T 
12 1164 3011 BNEQ  1470$ SESCAPE SEQUENCE INTRODUCER T 

53 7D BF 91 1166 1g CMPB 0s AT TYS$C_LOWESC1,R3 [1S THIS AN ALTMODE T 
06 13. 11EA 301 BEQL 14108 : YES THEN HANDLE SPECAILLY T 

53 7E BF 91 +11EC 3014 CMPB 4s #TTYSC_LOWESC2,R3 : LOWER ALSO T 
11 if 11F0 3015 BNEQ 1420$ : NO THEN MUST BE AN ESC OR CSI T 

4B 44 AS 07 E 11F O16 1410$: BBS #TT$V_LOWER,UCBSL_DEVDEPEND(R5),1470$; LOWER CASE TERMINAL T 
51 3C AG 3C 11F? 301 MOVZWL TTYSW"RB_TXTOFF(RZ),R1_ ; OCATION OF THIS CHARACTER T 
008441 18 90 11fB 3018 #TTYSC_ESCAPE ,a@TTYSL_RB_TXT(R4)CR1J; AND FORCE THE ESCAPE T 
53 1B OA 1 90 O19 MOVZBL #TTYS$C7ES : AND PUT THE ESCAPE IN R T 

30 AG OBS 0 0 14208: INCW  TTY$W_RB_TXTOFF(R4) : ESCAPE INTRO THEN SAY SO. T 

51 DD 1 : 021 PUSHL 1 : SAVE T 

F291 30 1208 30 : BSBW  s«ESCINIT T 

0103 C5 31 8608 ! 0 ; nove Ri ,UCBSB_TT_ESC (RS) r 
1213 3025 SET STATE ESC : SETUP ESCAPE STATE T 

51 S58 AS DO 1218 30 : 1440$: Move UcBsL IRP(RS),R1 : GET THE IRP ADDRESS T 
38 al s-53)—i«wBOSs121C:=«30 MOVW =. R23, IRPSL MEDIACRI) : SETUP THE TERMINATING CHARACTER T 
3A Al 86 1 8 INCW  IRPSL_MEDIA+2(R1) ; AND THE LENGTH T 

40 a6 3C AG B1 1 14508: CMP TTYS$W-RB_TXTOFF(R4) ,TTYSW_RB_TXTSIZ(R4); ARE WE FINSIHED T 
ss 0 BGEQU 1460S :"YES THEN FIN T 

122A 1 IF NOT_STATE EOL,1480$ : IF NOT END OF LINE THEN RETURN T 

1204 A2 1A £46 1 : BBSC ~ #TTYSV_ST_PRE,4(R2),1490$ T 
1 IF STATE NOECHO, 1280 T 

oc €0 1 4 BBS #TRMSV_fM_TRMNOECHO,- T 

OC 20 A4 1239 5 TTYSL_RB_AOD(R4) , 14958 ; IF NOT ECHOING TERMINATER THEN EXIT T 
FF10 1 123C¢ 6 1480$: BRW 103 T 

FFS 1 123F 146 $: BRW 1600$ T 

FEFB «31 «124 : 1470$: BRW 1040$ T 

FFOF 1 126 1490$: BRW 1 208 T 

FF26 «31124 40 1495$: BRW 1026$ ! 

T 

T 

T 

T 

T 
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Trvc age 96) 


HARO.MAR; 1 
- ~SBTTL READ WITH VERIFICATION 

; RDVERIFY 

; Beser tpt tens 


3 ead verify allows programs that wish to do character validataion 
; to issue one 10 rather than a Q10 per character as was previously the case. 


: Inputs: 

: Re - Unit state vector 

: R> = address of the ucb 

; Implicit inputs: 

: UCBSL_SVAPTE - The address of the read buffer. 

3 TTYSL_RB_TXT - The address of the first character of the initial string 
3 TTYSW_RB_TXTOFF = Offset to the Last character in the initial string 
; TTYS$W_RB_TXTSIZ = Length of the data buffer. 

3 TTYSW_RB_LINOFF = Offset to the end of the field, initial offset. 

3 TTYSL_RB_PIC - The address of the picture string. 

* 


DVERIFY:: 
MOVL ADDRESS TYPEAHEAD BUFFER 

NO BUFFER THEN THERE IS A FORK 

PROCESS WAITING SO LET IT GO. 

ANY TYPEAHEAD DATA? 

yes then take it out and continue 


UCBSL_TT_TYPAHD(RS) .R4 
40$ 


TSTW TTY$W_TA_INAHD(R4) 
50$ 


: TYPEAHEAD BUFFER EXHAUSTED 
: IF_NOT_STATE <TYPFUL>,35$ ; BR IF TYPEAHEAD IS NOT FULL 


ees: BRW XON ; CONTINUE 


; THE TYPEAHEAD BUFFER HAS NOW BEEN EMPTIED INTO THE SYSTEM BUFFER. 
: IF PROCESSING A READ WITH ZERO SECOND TIMEOUT, RETURN THE DATA 
:; TO THE USER IMMEDIATELY. 


BBC #UCBSV_TT_TIMO,UCBSW DEVSTS(R5) 408; BR IF NOT READ WITH TIMEOUT. 
CMPL  TTYSA_MAXTIME ,UCBSL_TT_RDUE(R5): ZERO SECOND TIMEOUT? 
BNEQ 40 ; BR IF NOT. 
MOVW  #SS$ TIMEOUT,UCBSW_BOFF (RS); SET TIMEOUT COMPLETION STATUS. 

BSBW = TTYSREADONE ; COMPLETE REQUEST. 


: DISMISS INTERRUPT 


dos: CLRB UCBSB_TT_OUTYPE(R5) ; SET NO RETURN CHARACTER, 
RSB 3 and dismiss the interupt 


5OC9 C9 69 C909 G9 GD GD GD GD SINS NSD PP PAA AAA MAI EE EEE ee 


=D OO NAME WIN 3 S OO NAN ES WI SO OD NAME WN 9 ODNOU ES UP" OOONOUE UT TW 
ee e@e 
@ 
m 
[=] 
cr 


oo000 
Deh ah 


: ACTUALLY REMOVE CHARACTER FROM BUFFER 


95 50$:  MOVZBL @TTYSL_TA_GET(R4),R3_ _; GET THE CHARACTER 

9 BBCC  #TTYSV~ST~ECHAES,4(R2),55$: IS THIS THE FIRST CHARACTER 

9 ROVE UCBSL SVAPTE (RS) RG ; GET THE READ PACKET ADDRESS 

98 MOVZBW #TTYSR_ER_AESECHO, TTYS$W_RB_MODE(R4); YES THEN ECHO THE AES STRING 


vs 
TTYCHARO - Terminal driver character output routi 16-$ eo] VMS Ma v04 m4 Pa 5 
v04=000 READ WITH VERIFICATION “ Breer fbe Ocstosts LANOAUR. caeaervcnago.mar:1 2% (32) 
1 ? 9 SET_STATE PI TREAD 3; NOW DO EDITING 
FAB? 831 } } ' 55$ BRw EDITREAD 3; AND ECHO THE STRING 
OC AG” OB? } $ ! ) DECW TTYSW_TA_INAHD(R4) ; ADJUST NUMBER OF TYPEAHEAD CHARACTERS 
f , : CHECK FOR BUFFER WRAP AROUND 
a ag Fi 04 AG 10 A4 F2 1 $f 1 § , AOBLSS TTYSL_TA_END(R4) yt TA_GET(R4),60$; POINTER PAST END? 
4A 0118 C4 9E ' I | MOVAB TTYSL_ TA “DATA(RGS TTY a TA _GET(R4S; RESET POINTER 
20 DD 12A 1 g 60$: PUSHL RO 3; charo can not destroy RO 
54 78 A DO 12A 119 MOVL UCBSL tala aR4 AD BUFFER 
12A 11 IF_STATE ESC,T IF F ESCAPE SEQUENCE - PROGRESS T a HANDLE 
20 A4 11 E1 12AD 11 Bet aTRegy TM_R_JUST,TTYSL rb -MOD(R4),-; BRANCH IF LEFT JUSTIFY MODE 
6 1281 11 EFT_JOSTIFY 
015C . 3 44 114 BRwW RIGHT JUSTIFY 
029C¢ 1 128 115 10$: BRW ESCAPES TERM 


— 
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TTYCHARO er character output ti 16-SEP-1984 7:21:31 VAX/VMS Macro v04-00 e bail 
04-000 CATION UtpUt ruth ge Ten Obe Betaty EttbNuR emeservcnass.man:1 2% (3, 


=" 
at 


REA Vv 


THIS ROUTINE HANDLES LEFT JUSTIFIED FIELDS 


LEFT_JUSTIFY: 


rminal driv 
WITH VERIFI 
1288 3117 
1088 311 
12088 311 
1288 31 
ih 8 
51 30 a4 3 BB MOVZWL TTYSW_RB_LINOFF(R4),R1 : GET CURRENT OFFSET INTO FIELD 
12BC 3125: TERMINATE IF ALREADY FIELD FULL - , THIS CAN OCCUR ON A NON AUTOTAB 
12eBC 31 $ ; FIELD WHERE WE DEFER "FULL FIELD'’ COMPLETION UNTIL ONE MORE 
BC : CHARACTER IS TYPED. CHAR TYPED Ss TO RMTWATOR. 
3¢ AG 51)BTsC1eBC O31 : 7 CMPW 0 saR1, TTYSW_RB_TXTOFF (R4) ; FIELD 
03 19 1206 3130 BLSS -5$ : IF LSS, NOT YET 
0OA1 31 12C2 3131 BRW TERM YES = INPUT CHAR IS TERM 
15e8 3438 
1 3 : ¢ 3: Check to see if this character is valid in this position 
50 18 8441 9A 12¢5 31 6 MOVZBL arTYSL RB -PI1C(RG)ER1],RO : ADDRESS CORRESPONDING PIC VALUE 
00000000‘ EF4 33 33 ! cA 4 pire #0 .V VERTFY_ARRAYCR3J : Caan VALID ? 
OO8F 31 1204 3139 BRW TERM + ELSE TERMINATOR 
1h $148 108 
D 148 ; UPCASE IF REQUESTED. 
OA 20 AG 08 E1 1207 3144 ° BBC #TRMSV_TM_CVTLOW, TTYSi_RB_MOD(R4) 138; No CONVERT THEN DON! T 
03 0000'CF43 0 El 1 D¢ 145 BBC aITYSVE vaste LOWER ,WATTYSA_ Peper Ral. 13$:'is this lower cas 
5320 ES 146 BICB#*X : yes nixt LOWERCASE OPER 
00 8441 53 90 E6 148 am MOVB Baesendieey ohare : STORE INTO READ BUFFER 
51 B86 1268 3150  INCW RI ; POINT TO NEXT POSITION 
3c AG) O51Ss«BTSCOd ED 3151 CMPW 0 saR1, TTYSW_RB_TXTOFF (R4) : FIELD FULL? 
5D 18 Fl 13¢ BGEQ  FULL_1 : YES, WITH SINGLE CHARACTER 
I : 130 ; Check for trailing marker characters to be skipped 
18 B441 95 12F 136 TSTB = @TTYSL_RB_PIC(R4)CR1) : NEXT POSITION MARKER? 
39 «12 r? 13 BNEQ  OUTPUT~1 : NO, OUTPUT 1 CHARACTER 
51 D7 12F9 139 DECL = R1 : POINT TO PREVIOUS POSITION 
146 AG 600 B441—s9E FB 160 MOVAB TiS RBceEASiRGReS : SAVE ADDRESS OF STRING TO OUTPUT 
50 01 9A i 16¢ th MOVZBL "RO" : INIT COUNT OF CHARACTERS IN STRING 
51 D6 1304 3164 INCL R1 : POINT TO NEXT POSITION 
3C AG 31 81 6 165 CHP 4 TTY$W_RB_TXTOFF(R4) ; FIELD D FUL 
0041 31 = 130C 169 BRW FULL_1 : YES, $O DON'T OUTPUT 
F 168 — : TRAILING MARKERS 
18 B44) 95 OF 1%6 ‘ Ts1B a] TVSL_RB_PIC(R4)CR1] : NEXT SLOT A MARKER 
5 B6 1 13 17¢ INCW = RO : COUNT MARKERS 
€B 11 «1317 317 BRB 308 + CONTINUE LOOKING 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 AX/VM Me cro V04-00 Pa 
04-000 READ WITH VERIFICATION ° Breer 1b8e Oc stosty LANONWR. cacao rVctago.mar:1 2% (35) 
1 13 124 45$: 
0B AG «650 «(90 «131931 MOVB RO, TTY$B_RB_ECHLEN(R4) : SAVE STRING LENGTH 
1p 176 ; BRW oufPuT_S ; OUTPUT STRING 
131D 3178 ouTPuT_S: : OUTPUT A STRING 
30 AG) 0«51—s—«wBOCéCd'3'12 158 MOVW sR ITVS, RB_LINOFF (R4) ; SAVE NEW FFs T 
1321 3180 IF _STATE OEM BONE ; NOE¢ HO THEN D T ECHO 
32A6 «B41 3 181 CLRW Rs LINREST(R4 : DON'T CHANGE. CURSOR POSITION 
44 06 OA 9B 1 1 : MOVZBW yriyar ER_RVECHO, tTysw. RB “nove (Ri); ON ETUP TO ECHO 
1 1 SET STATE opt ITREAD re 
18 «11 , BRB : THEN ALLOW THE CODE TO FLOW 
1 1 6 OUTPUT_1: ; OUTPUT CHARACTER IN R3 
30 AG 51 01 1 MOVW = R1, TTY$W_RB_LINOFF (R4) : SAVE NEW OFFSET 
47 AG 35 91 6 188 cMPB RS TTY Y$B-RB-RVFFIL(R4) : USER TYPE FILLCHAR 
53 4604 90 133C 3190 MOVB TTY$B_RB_RVFCLR(R4),R3 t YES = REP W/CLR CHAR 
143 98) en, 
os ones 1340 138 } IF |STATE_NOECHO DONE : NO EDCHO THEN DON'T ECHO 
EE3D 40-31 «1347-3195 BRW FORMAT_CHAR : FORMAT THE CHARACTER ELSEWISE 
13¢n 3199 DONE 
50 BEDO 134A 3198 POPL RO : RESTORE RO 
ECBO 331 1340 199 BRW TTYSGETNEXTCHAR + AND GET THE NEXT CHARACTER 
1350 200 FULL_1: : FIELD FULL, OUTPUT SINGLE CHARACTE 
1350 0¢ : IF NOT AUTOTAB, DONT END NOW = LET HIM HIT A CHAR 
2 €1 1350 3204 ° BBC #TRMSV_TM_AUTO_TAB,- 
20 AS 132¢ 05 TTY$L_RB_AMOD(RZ) ,- 
DD } 22 3g OUTPUT_1 ; ECHO LAST CHAR 
30 a4 «6«51~—és«wBO 1388 08 MOVW _R1, TTY$W_RB_LINOFF (R4) : SAVE NEW OFFSET 
1359 3209 SET STATE EOL : TELL THEM WE ARE DONE 
54 SB AS DO 135D 3210 MOVE) UCBS$L_IRP(RS),R : GET IRP ADDRE 
38 AS) «4 «1361 3211 CLRL —IRPSLIMEDIAC CRA) : SIGNAL NO TERMINATOR 
DA 11 1364 1 BRB EXIT 
188 $212 rem 
30 AG «51s BO C1366) «3215 "  mOvW TTYSW, RB LINOFF (R4) ; SAVE ENDING OFFSET 
136A 16 IF STATE SNORLTR SKIP EDITING IF NOFLTR 
00000000'EF43 03 91 1 ob 1 CMPBOCWTTYSK R38 DELEFT,TTYS$A _CCLISTER34; 1S THIS A DELETE CHARACTER 
46 13 1 18 DELEFT JUS ; YES THEN DELETE 
1378 3219 3$ If NOT_STATE ESCAP ESCAPE PROCESSING THEN 
00000000" EF 43 g4 1 ZC : CPB #TTYSK_ ET PESCAPE, TTYSA ACCLESTERS4; ESCAPE: ? 
1386 ‘ 4$: SET STATE EOL : SET END OF LINE 
0 58 AS DO 138A 5$: move UCBSL BSL JRP(RS) RO 
8AO 53 9B 1 BE 4 MOVZBW R3,IRPSL_MEDIA(RO) ; TERMINATOR 
AAO 01 90 139 5 MOVB #1, IRPSL-MEDIA¥E(RO) : TERM LENGTH 
BAO 51 90 1396 : MOVB Ri [RPSL MEDIAS (RO) : OFFSET TO INVALID CHAR 
1 3CA4 3C 9A f MOVZWL TTYS$W_RB-TXTOFF(R4),R1 ; GET THE OFFSET TO THE END 
18 AG 00 B441 3 139E 9 MOVAB alTTY$L RB_IXT(R4)CR1], TTYSL_RB_PIC(R4) ; SETUP THE END OF THE BUFFER 
18 B4 53 90 13A4 0 MOVB R3,aTTYSL“RB_PIC(R4) ; STORE IN BUFFER 
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TTYCHARO 
v04-000 

AO 
51 
FORe 
0103 ¢5 1 
51 
cc 
50 
51 
0c 
50 
18 B441 
07 
51 
F4 
FF77 
3C AS 30 AG 
03 
50.001 
30 A451 
38 AG) §=6OOFC C5 50 
0100 C5 = 550 
14 A400 B441 

AG 
44 AG OA 
32 A401 
00 B441 47 AG 
FF39 
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CHARO.MAR; 1 ° (3) 
BRB DONE 


SIGNAL ESCAPE SEQUENCE ACTIVE 


SET_STATE ESC 
PUSAL R11 3; SAVE R 
BSBW ESCIN IT ; INIT THE ESCAPE SEQUENCE RULES 
MOVB R1,UCB$B_TT_ESC(RS5) l- 
POPL Rt ; RESTORE R1 
BRB 5$ : SKIP SETTING END 
DELETE ONE CHARACTER TO THE LEFT 
R1 = offset into the line 
SELEFT JUST: 
CLRL ; A COUNTER 
DECL RI 3 move left 1 ¢ 
BLSS 100$ 3 NO CH ARACTER ro. DELETE THEN DON'T 
INCL RO 3; MOVE BACK 1 CHARACTER 
TSTB @TTY$L_RB_PIC(R4)(R1) 3; 1S THIS A MARKER? 
BNEQ 208 : NO THEN SHIFT 
DECL R1 ; ELSE MOVE OVER IT 
BGEQ 10$ : NO NON-MARKER THEN IGNORE THE DEL 
BRW DONE ai 
CMPW TTY$SW_RB_LINOFF(R4) , TTYSW_RB_ TXTOFF(R4); WERE WE ABOUT | To TERMINATE 
BNEQ 25% NO THEN PROCESS NO 
MOVL #1,R0 ; ELSE rene GO BACK RiP LACE 
3 DUE TO SPECAIL EOF COND {TIONS 
movi + ane mT RB_LINOFF (R4) : UPDATE THE OFFSET 
SUBW3 RO,UCBSW_TT_CURSOR(RS) ,TTYSW_RB_ CPECURERAD SET THE FINAL CURSOR 
ary RO,UCB$W_TT_BSPLEN(RS) AND TELL HOW MANY CHARACTERS TO 


: BACKSPACE OVER 

D THEN OUTPUT OTHER STUFF AND RETURN 
BA Ixt (RAE J, TTY$L_RB _einstatng) GET THE ADDRESS OF WHERE 
MOVB CHLEN(R4S THE LENGTH OF THE STRING To OUTPUT 
MOVZBW attyen ER ROE CHD TTYS$W_RB _MODE (RA); SET THE MODE OF THE EDITING 

MOVL = #1, 18h _RB_LINREST(R4J : fet THE MOVE TO RESTORE THE POSIT 


MOVB TTYSB_RB_RVFFIL(R4) ,aTTYSL_RB_ rer egay tnt AND FILL THE BLANK 
BRW DONE WITH THE FILL CHARACTER 


SET_STATE trot ke te EDITREAD> 
MOVAB aT vy CR 
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TTYCHARO - Terminal driver character output routi 16-SEP-1984 21:31 AX/VMS Macro V04-00 Page 99 
v04-000 READ WITH VERIFICATION , ety 7 ee ETTORVR. SREITTYCHARO.MAR: 1 ’ (3B) 
141 i: RIGHT_JUSTIFY: 
51 30 A4 32 1611 0 CVTWL © TTY$W_RB_LINOFF(R4),R1 : GET CURRENT OFFSET 
oe a {Bou att SER" Pena 
00BD «(31 1417 . BRW RIGHT_TERM 
50 188441 9A 141A 5 MOVZBL @TTYS$L_RB_PiC(R4)CR1),RO ; Get PICTURE VALUE 
D ig 141F $ BNEQ 5$ : RKER 
D? 1421 DECL 1 ; CHECK FOR END 
18 14 8 BGEQ «= 3$ 3 NOT YET 
3] D4 14 9 CLRL sR 
30 Ad 1 80 14 0 MOVW R1,TTY$W_RB_LINOFF(R4) : SAVE CURRENT OFFSET 
0076 31 14 8 31 - BRW FIELD_FUCL : FULL OF MARKERS 
QOOON000'EF SS 50 93 142E 38 BITB = RO venir _ARRAYCR3] : IS THIS CHARACTER VALID HERE 
3 12 1436 3294 BNEQ 108 > OK 
009C 3% 1438 3295 BRW RIGHT_TERM 
1458 96 ; 
1438 3297 : SHIFT DATA IN INPUT FIELD 
1438 3298 : 
1438 3299 jos: 
30 AGS 51—s«wBWOD 1438 300 MOVW R1,TTY$W_RB_LINOFF(R4) : SAVE CURRENT OFFSET 
51 4 143% 3302 CLRL RV : INIT DESTINATION POINTER 
1441 3304 ; FIND FIRST VALID DESTINATION 
1441 3305 
1441 3306 20S: 
18 B441 95 1441 307 TSTB) = ATTYSL_RB_PIC(R4)CR1) : MARKER? 
0B 12 1445 08 BNEQ 30$ : NO, POSITION IS OK 
51 D6 1447 3309 INCL R11 + LOOK FOR NEW DESTINATION 
3c AG) 0 O51—Ssi«BCs1449 =—-3310 CMPW =saR1, TTYSW_RB_TXTOFF (R4) : PAST END? 
F2 1F 1440 3311 BLSSU 20 : NO, IT IS STILL OK 
0052 31 144 31¢ RW FIELD_FULL 
1285 3344 38 
1452 3315 : IF NONCLR CHAR IN LEFTMOST DATA POSITION, FIELD IS ALREADY FULL, MUST 
132 $1$ 3 BE NON-AUTOTAB. TERMINATE WITH OVERFLOWING CHAR 
47 AG) «00 8441s o91s«*145 18 CMPB ss @TTYSL_RB_TXT(R4)CR1], TTYSB_RB_RVFFIL(R4); THIS A CLR CHAR? 
07 13 145 19 BEQL 35% :YES = NOT FUL 
3C AG) «6 BO CO145A 0 MOVW § TTYS$W_RB_TXTOFF(R4),- : SHOW OVERFLOW OFFSET 
30 A4 1450 1 TTYSUCR RB-LINOFF (R4) TIF FIELD FULL 
76 11 165° : BRB RIGHT-TERM : 
1461 35$: 
51 oD 1661 4 PUSHL 1 :SAVE OFFSET TO LEFT BYTE 
50 51 »v0 1463 $ MOVL _R1,RO : INIT SOURCE POINTER 
1466 § : FIND NEW SOURCE 
1466 
1466 0 40S: 
50 06 1466 1 INCL R 
30 AG 61 14 é CMPW =s- RO, TTYSW_RB_LINOFF (R4) : PAST END? 
12 1A 146C BGTRU 10068 : YES THEN SHIFT COMPLETE 
18 B440 95 146€ 4 TSTB = ATTYSL_RB_PIC(R4) CROJ + MARKER? 
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TTYCHARO - Terminal driver character output routi Tgn~sEb= 1386 Be 1:31 yaa lyes Macro V04- Page 190 
v04=000 READ WITH VERIFICATION ~SEP-1984 04:16:19 CTTDRVR.SRCITTYCHARO MAR; 1 ) 
F211 1472 § BEQL 40% YES 00K AGAIN 
00 8441 90 B440 90 147 ; MOVE arTy$L _RB_TXT(R4)CROJ,@TTYSL_RB_ fxTCRADERII; SHIFT THE DAT 
1 50 00 1478 MOVL RO Ri ~ : OLD SOURCE IS NEW DESTINATION 
& 11 147 2 BRB 40$ 
14 40 : SHIFT COMPLETE 
14 4¢ 100$ 
148 44 : UPCASE IF REQUESTED. 
08 €1 14 4g : BBC #TRMSV_TM_CVTLOW,- ; SKIP IF UPCASE NOT 
OA 20 A4 14 4 T RB_MOD(R4) .105$ REQUESTED 
03 0000°CFSs 03 1 14 8 BBC TTY$? GA_LOWER ,W°TTY YSA_TYPECR3J,105$; is this lower case? 
53 20 «8A 148¢ 4 BICB = #*X20,,R : yes MAKE LOWERCASE UPPER 
idee 3389 103 
00 B441 53 90 148F 3 MOVB R3,aTTYSL_RB_TXT(R4)CR1) : Sto"eobf ions INTO 
51 8EDO 1494 3354 POPL Rl : GET START POSITION 
46 AG 00 B44 9 1497 338 cMPB aTTYSL RB TXT(R4)CR1],TTYSB_RB -RVECLR(RG) ; START WITH CLR CHAR? 
12 E€1 149F 337 BBC Ft ens TRA [FLD FULL = NONAUTOTAB 
OB 20 A4 14A1 58 TTYSL_RB MAOD (RE) ARIGHT _ECHO : JUST ECHO 
14A4 3359 [FLD FULL = AUTOTAB 
14A4 3360 : FALL THROUGH 
i2ag 3303 
14A4 308 FIELD_FULL: 
14a4 364 sa SET_STATE EOL 
51 58 AS DO 1448 3366 | MOVL UCBSL_IRP(RS),R1 : GET IRP ADDRESS 
38 Al D4 14ac 367 CLRL —IRPSLMEDIA(R Ri} + SIGNAL NO TERMINATOR 
14AF 3369 RIGHT_ECHO: 
OOFC CS B4 14AF 3370 LRW UCB$W_TT_CURSOR(RS) 
a ons 1483 31 Pepe *T* age - , GODONE : NO ECHO THEN DON'T ECHO 
32 AG) B4O14BA ig CLRW  TTY$W_RB LINREST(R4) 
44 04 OA 98 1480 74 MOVZBW ertysR ER_RVECHO,TTYS$W_RB_MODE(R4); ECHO THE LINE 
14 A4 GAAQ QE 14C1 3375 MOVAB TTYSA_RB_ ANRC) TTYSL~RB-ECHSTR(RS); THE ADDRESS OF THE STRING 
30 A434 AG «OB1 «O14C6 3376 ADDB TTY$W"RB-PRMLEN(R4) , TTYSWRB_LINOFF (R4) ),-; GET THE LENGTH TO ECHO 
0B AG 14€8 3377 TTY$B~RB-ECHLEN(R4) Sees 
0B AS 86096 «14D £8 INCB  _TTY$B"RB-ECHLEN(R4) > ACCOUNT FOR ZERO BASE 
1400 337 SET_STATE EDITREAD 
F874 31 1404 0 EDI TREAD 
1407 ; -ENABLE LSB 
407 4 RIGHT_TERM: 
14p7 5 IF STATE NOFLTR,3 SKIP EDITING IF NOFLTR 
00000000" EF 43 03 1 140 4 CHP erate pe TTYSA _CCLISTER3S; mt THIS A DELETE CHARACTER 
. Ht § 3$: IF NOT_STATE ESCAPE : ESCAPE PROCESSING THEN 
00000000'EF 43 94 1 1465 cHPB aTTYSK_ ET PEethpE, TTYSA CCLISTERS): ESCAPE ? 
7E AS = -3C AG 43 14F3 3 4$: MOVW  §TTYSW_RB_TXTOFF(R4) ,UCBSW_BCNT(R5); FILL REQUIRED FIELD 
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E 12 
er character output routi 16-SEP-1984 
feat ION SEP | 9B4 
. SET_STATE <EOL> 
OVI UCBSL_IRP(RS),R1 
MOVZBW R3,IRPSL_MEDIA(R1) 
MOVE «of -{RPSLIMEDIAt2 (RI) 
MOVB TTY$W_RB LINOFE(R4) = 
IRPSL-MEDIA+3(R1) 
MOVZWL TTYSW"RB TXTOFF(R4),R 
MOVAB  aTTYSC_RB_TXT(R4)CR1) 
R3,aTTYSL_RB_PIC(R4) 


MOVB “RB_ 
GODONE: BRW DONE 
; SIGNAL ESCAPE SEQUENCE ACTIVE 
108: 


SET STATE ESC 

PUSAL RI 

BSBW Ss ESCINIT 

MOVE =R1,UCB$B_TT_ESC(RS) 
POPL = R1 

BRB 5$ 


DISABLE LSB 
> DELETE RIGHT JUSTIFYED 


DELRIGHT JUST: 
MOVL = R17, RO 
10$:  DECL RO 
BLSS 20% 
tsi @TTYSL_RB_PIC(R4) CROJ 
MOVB aTTY$L_RB TXT (R4) ERO 
arTYSL- “RB-TXT(R4)CR1 
MOVL _RO,R 
BRB fog" 
20$: MOVB  TTY$B_RB_RVFFIL(R4),- 
aTTY$C_RB_TXT(R4)CRI 
BRW RIGHT_ECHO 


p 


2: 
4: 


T 


1:31 


1:3) AX/VMS Macro V04-00 


TTDRVR.SRCJTTYCHARO.MAR; 1 
; SET END OF LINE 
GET nd at 


Page 191, 


ete te 


7 

~ 
m 
» 
= 


; OFFSET TO INVALID CHAR 
ADDRESS OF " nin 


GET THE 
TYSL_RB_ piccRa; :OF THE INITIAL 


STR 
; AND STOR é THE CHARACTER. THERE 
; THEN EXIT 


save pi ANNOUNCE ESCAPE STATE 
INIT THE ESCAPE SEQUENCE RULES 
RESTORE R1 

; SKIP SETTING END 


GET THE CURRENT LOCATION 
MOVE 1_ CHARACTER 


N SKIP IT 
MOVE "Tae CHARACTER 


MOVE A FILL CHARACTER FROM THE LEFT 
NOW ECHO THE CHARACTER 


TT’ 
vO 
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TTYCHARO - Terminal driver character output ti 16-SEP-1984 7:21:31 VAX/VMS Macro V04- © 
04-000 READ VERIFY ESCAPE TERMINATOR ROUTING © SagePoyoRe Oc:fo:79 LaOMUS. caeaeryedago.mar:1 P29e 198, 
.SBTTL READ VERIFY ESCAPE TERMINATOR ROUTINE 
; DESCRIPTION: 


CALLED ON ALL THE CHARACTERS FOLLOWING THE ESCAPE 
INPUTS: 
Re - UNIT STATE VECTO 
- ADDRESS OF THE READ BUFFER 
RS = UCB ADD Ress 


: IMPLICIT INPUTS: 
és 


PRP PR RRR PREP PRP PPP PPP PP PPP PPE ms 


4 
4 
4 
4 
4 
d 
4 IRPSL_MEDIA+2 = CURRENT OFFSET TO IN THE BUFFER (ACCES SED AS A BYTE) 
4 TTYSL-RB_PIC = THE ADDRESS OF THE ESCAPE CHARACTER IN THE BUFFER 
49 TTYSW-RB-TXTSIZ = LENGTH OF THE USERS BUFFER 
51 ESCAPE TERM: 
50 58 AS 5 MOVL UCBSL_IRP(RS) RO : GET IRP ADDRESS 
51 3A A0 9A ; MOVZBL IRPSL-MEDIA+2(RO),R1 : GET CURRENT OFFSET 
40 a6 51. BI 5 CMPW = sR, TTYSW_RB_TXTS1Z(R4) ; DO WE HAVE ROOM FOR THIS 
“mF 5 BGEQU 308 [NO THEN TELL THEM ABOUT IT 
18 B441 53 9 5 MOVB R3,aTTYS$L_RB_PIC(R4)(R1) : STORE THE DATA 
3A AD (96 3 INCB —s[RPSL_MEDTA*2(RO) : BUMP TERM LENGTH 
EF40 30 6 BSBW - ESCSYNTAX ; PARSE ESCAPE SEQUENCE 
OB 14 6 BGTR  10$ + SEQUENCE OK, CONTINUE 
oc 19 6 BLSS 208 : SEQUENCE ERROR 
64 ; SEQUENCE COMPLETED NORMALLY 
465 CLR_STATE ESC ; CLEAR THE ESCAPE STATE THEN 
467 30S: SET_STATE EOL ; SET END OF LINE 
468 10$: 
FOCD «(31 4 3 BRW DONE 


rs 
 ™~ 
— 
~m 
So 
Aad 
— 


ESCAPE SEQ ERROR 
TELL THE WORLD 


Oo 

o 
ca ee ee ee ed ed dd od dd 3 dD <3 
PVPUPVPV PVPS SUSU TTT TTI PT 
ONIN NN NNN NNO AA AAA AMI UII UII oo 
eh PP dal * ith PP te * lei l? ) at a? at at at ot et et et et et et et et et 


47 "  SET_STATE BADESC 
0$ 


FS. 1 47 BRB 


- Terminal driver chara 
End 


of module 


1383 37 TTLEND: .SBTTL End of module 
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Symbol table 
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TTYCHARO 
Symbol table 


TT 


™N Laan 
oO oo 


= bo 
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# 0000 
QOD QI OIC CIPIOIIIINS OO OMINOUS & CUMIN FMI TF PNIOUIN TF QO KOI # OOF OOO EO 
*# SDOOOOOSOOOOSOSOOSOSOSO tw 


w 
cond ~ a 

a _ ot > . 2e-=z 
« ai ae Ou —~+ «zoe ee w 
w uw > O@rOw 2 Hu euduoow a+ 2eu0ugzu4 Z2eunw us |) —_ w 
4 a20C~Cl EUS RR US SS OE I I KE SS OW Oe ews oa ea Ou SS a © wow. G, 
od <= te VIEest KF wOotoaadwtFu 8 <aw JV0rOcwj-OMrtOMFe ue We > 
SIV IIE wWewetnwo > 42 OOF 6 oe ZYNNVZZOLVe eZ AeVUUIMe Ze 
Q0MMYN- ppp tte Pra tt Reg pt pte yf RLS Pe ee ee fe ] 
Www FS ZZ ZOOCAAIS SENN ee BBBVO CL VUw I EO ee ee eeu —Owwe jj JO 
eeteteececeeeeeeeeee ett kt ktlktlkl kkk ek kl htlhlctCl atk kkk kk kkk ek kee) > evepoueuete 
tet Ltt LiL LLL ELE Litt LEE bid faa 4 4-7 RRS GY WR Re he 
NMNMWMWWMWMVWMVWHVWVWVWHWVWHWMWHWWMVWVWNWGWNWWNWNKHVOHMESCSSSCSSSSSS BB [ant coed cel coed eel aoe el el aoe 


ae err 


N 
oO 


ODOQOOOGOOSOOOSOOOOOOSOSOSOSOS-SSoonuecoe— oO Ssssssssssssssssssss 
OGOOTQQOOCOOOOOOOOSOOSS— SOOSooooanooooososes « SOOSSS Sooooo 
SDOOSCOS—GOOSGGQOOOSSSHGOSS TI SOSSSOMSSSOSSS « SOSOSSS Soooooo 


w w 

3 2 = & > 2 « s 

_ os rv i = 

< od —_ + 4 Ou a == w Oo « < o 
aw Ss zw z Oa@rOnm 2 uG@uAU oT: 4 ow "YZ & wuAv s 2 
NNO “ax ao, , -_ Zev = SVK) we ac: j= wOW aVivreaoa -_ 
Mw - > VwJj@ucam re wodtoaawaeuar<e Vve—-a <a & pte tt 4 ad 
v70eaa a -f-} $2-e $-f-entrintetet £ Ty wor fut eoww Peet parang Foy 
<< DWOOOMUYs =2995S<< Owww sw raacaw SEE PT patty tre -——- wa 
=“ us iat meee “* ‘ vrerrerecieet rt cece a i Oe a =u t 
el gould aed aged aed add aged aed pel eget aged aged uel aged gel aged ped aged gpd aged gpl uel aged al apd ge apd aud and and_and and and andend ‘1-3 od 4a oul bel aul end aula ate tetetetetete-1 
a am; ms m m we wk m “ m - “ - - w ww haw Wee eee eee wt es eek ‘enwunnen ”* 
>>> >>> > ee ee ee ee oe oe oe > 
SESSSSSSSSAAS SSSR SS SRS SSS FAAAAAAAARARAABABAABABBBBBABADS 
ce ca el ca ca cd a cl ae ek ek ak ok ok ok ok ot ok ot ok ok ot ot oe Se oe oe et oe ot oe oD i A hd he aaaababal 
aul aul eee oud aul aul eed andl onal endl eel oul ued aed coed axel el cell ceed eel oe el cel el cel el oe Ge cl cl ed ee eed ed el ced el el el el el el el el ol ed gel ed gel el ge ce gee ae ae 
ee ee 


TTYCHARO 
Symbol table 


UCBSL Mi taty 
UCBSL_DEVDEPND 
UCBSL_OUETIM 


UCBSM_TIM 
UCBS_TT_STATE 


UCBSW~BUF QUO 
UCBSW~DEVBUF S1Z 
UCBSW_DEVSTS 
UCBSW"TT_BSPLEN 
UCB$W~TT~ CURSOR 
UCBSW"TT"MULTILEN 
UCB$W"TT~OUTLEN 
UCBSuTT 


UPDCURSO 
VERIFY_ARRAY 
VTAB 
WRITE_END 
RITING 


71 
ZERO_CPZORG 


PSECT name 


$AB 
$$$115_DRIVER 


- Terminal driver character output - Wer see=13 4 Sak pee 


3 * PS Sass ROS Ree Sth. 
OD #MPONINVTI NOOO Lv SOOO MM®D 9 NNO LS 


BO"WIN "OOF WOM £ SDOMMON OO LONDON — $C F FOOCMWOWWOraos 


—GOwood £0o 


Allocation 


00000000 < 


00001583 ¢ 550 


AX/VMS Mac 


P=1984 TTDRVR. 


oOoooo 
rororore 


02 
02 
$cc wee ow ooo oone * 
! Psect synopsis ! 
toeoeoesoeooosoeses=s + 


Attributes 

NOPIC USR CON ABS ~ LCL NOSHR NOE 
NOPIC USR CON ABS LCL NOSHR’ €E 
NOPIC USR CON REL LCL NOSHR’ €E 


0°) a} ( Q.) 
2? O1¢ Je? 
-» 02 ¢ 2.) 


XE NO 
XE 
XE 


ro V04-00 


SRCJTTYCHARO.MAR; 1 


ro 


RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD WRT NOVEC LONG 


TT 
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VAX-11 Macro Run Statistics . Set Pi 9e: 9h: %8 TTDRVR. SRE REIT TYCHARO.MAR; 1 - (85) 


greece ee ceosn eee enw ama cawes $ 


! Performance indicators ! 


Fw eseeceeoe cena are oceaw neon + 


Phase Page faults CPU Time Elapsed Time 
Initialization : 04 +f) 
Command processing 133 8: $3 tie 
ae table sort Q °01 

Pas bo} 53 :00:08. ie 4 
Syabot table output 1 :00:00. 34 
Psect synopsis output :00:00. 01 
Cross-reference output :00.00 3 0 
Assembler run totals 156 743.34 BiOtiee .01 


The york ing set Limit was 2400 page 

73339 bytes (534 pages) o virtusl memory were used to buffer the intermediate code. 

— were 150 pages of symbol table space allocated to hold 2533 non-local and 289 local symbols. 
3477 source Lines were read in Pass 1, produc ing object records in Pass 2. 

52 pages of virtual memory were used to define 49 macros. 


pemocewmece eset een nen ew ncence + 


! ; Macro Library Statistics H 


Macro Library name Macros defined 
“$52 280UAg: SYS.OBJJLIB.MLB; 1 20 
“$255$DUA28: SYSLIBISTARLET. MLB;2 9 

TOTALS (all Libraries) 29 


2791 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: TTYCHARO/OBJ=OBJ$:TTYCHARO MSRC$: TTYCHARO/UPDATE=(ENHS: TTYCHARO) +EXECMLS$/LIB 


AH-BT13A-SE 


ENT CORPORATION 
VAX/VMS V4.0 


ND PROPRIETARY 


UIP 
AL. 


D= 


